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_Polarisationsfilter für 
Bildschirme und Monitore 
Jetzt können Sie 


überall im Fachhan- 
del die neuen Polari- 


sationsfilter der 
John Hall Compu- 
terdivisiin Ham- 


burg erwerben. Die 
Filter gibt es in ver- 
schiedenen Größen, 
so daß jeder Bild- 
schirm oder Monitor 
auf einfache Weise 
mit ihm ausgerüstet 
werden kann. 
Weiter $. 29 





den Geräten. Die Deutsche Generalvertre- 
tung für die SICOS Computerzubehörlinie 
führt neuerdings im Sortiment eine 
Stromschiene mit integriertem Netzfilter, 


Schwankungen oder Störungen im 
Stromnetz sind oft Ursache von Compu- 
terfehlern wie Datenverlust oder - im 
schlimmsten Fall - Beschädigungen an 
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der solche Schwankungen oder kurzfristi- 
ge Spannungsanstiege durch statische 
Entladung ausgleicht. Ebenfalls werden 
durch eine Hochfrequenzdrossel Störun- 
gen abgebaut, die via Erdleiter übertragen 
werden. Die Stromschiene kann überdies 
in den SICOS-Computerständer integriert 
werden, sodaß nur noch ein einziges Ka- 
bel zum Arbeitsplatz führt, und die Vertei- | 
lung an die Peripheriegeräte direkt von 
dort aus erfolgt, wasdem „Kabelsalat“ un- 
ter dem Pult ein Ende bereitet. 
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sandte Programmunterlagen kann keinerlei Haftung übernom- 
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für Sie bereit. 
Leser + Meckerecke 66 
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Fortsetzung unserer 2-teiligen 
Serie über die Tastaturverwal- 
tung des Commodore 64. 


Um über die Tastatur ein Steuerzeichen 
drucken zu können, braucht man eben ei- 
nige Mühe. In Tabelle 2 habe ich zusam- 
mengefaßt, wie man das erreichen kann. 


ASC ZCHN BEMERKUNG TASTE AST ZEHN PEEKI DR3} 
a ’g" CTRL+T 4 “9 46 
ia CTRL+a 65 "a" 18 
zog ETRL+b BB "5 Er) 
zo 9 CTRLtc 7 Stop 87 "c9 28, 63 
34 “ap ETRL+IG 63 "d® ı8 
5 "2 Keiss ETRL+e 7 CTRL+E 89 Ha" 14,. 59 

} or: 0 ECTRL+f 7 CTRLr+r* za "FE" Bl, 57 
zog ECTRLIG 71 "g* Fi: 
8 "2 Blick Shtc ETRL+h TE H“ 23 
s'm" Entr Shtc CTRL+i 73 "ie 33 
18 # - Line Feed CTRU+J vage“ 34 
11 "m CTRL+K 75 HK 37 
12 "pp CTRU+ 76 "ı# 42 
13 23 Return ETRL+mM # Return -”? Fr m" 1, 368 
14 "9" Gr’Klein CTRL+N 78 "mn" 33 
15 "mp CTRL+O 79 Hg 383 
Fi-me- \ UTRL+P sa "p" a1 
iv Lur-unter ETRL+ZQ 7 ECRSR-U 81 "q* 7, 62 
185 3  RVS-on ETRL#+r * CTRL+I 82 "rn 17,.238 
i3 "W" Home CTRL+s HOME 83 "5" 13. 51 
ea "m Dei CTRL+t 7 Del-?7 4 rt 8, 22 
21 *m" ETRLU+U 85 "ur" 329 
ce "mw CTRL+U 6 "u® ai 
23 "m" CTRL+U 37 "8 3 
24 CTRL+x Sg x 23 
ES "gr ETRL+Y 39 "yH 25 
ir 1 CTRL+Z sa *z" 12 
Er ETRL+L sı vr“ 35 
BE "EM Rot CTRL+L # CTRL+3 32 En 3, 38 
es u Lur-recht CTRL+1  CRSR-R TIER ee. 58 
sa *g" Grn ETRL+t 7 CTRL+E an 13, 54 
a1 2" Biau CTRL+= 7 CTRL+7? 35 "+. 24, 53 

105 vg 192 

123 "gQ" Orange coM+ 1 153 "m" SE 

12a "ze 134 "8" 

131 "m" 7 Shitt+ 7 CüOM+Stop-? 135 "go" 53 

1232 "m" 135 "pa 

133 "m Fn-Taste 4 i97 "Er 4 

134 'p Frn-Taste 2 198 pP" 5 

135 "gr Fn-Taste 5 193 "G" & 

135 "ap Fn-Taste 7 zu *H" eo 

137 "m Fn-Taste 2 za 1" 4 

135 "m Fr-Taste 4 zog "7 5 

133 "pP Fn-Taste & 2B3 "Kr 6 

© 
aß Compurs mi 





Ein Zeichen mit einem. ASCII-Wert von 0 
bis 30 kann man ausnahmslos mit Hilfe 
der CTRL-Taste zusammen mit der pas- 
senden Normal-Taste drucken. Es scheint, 


daß die CTRL-Taste den ASCH-Wert um 64 | 


herunterbringt (d. h. 6. Bit löscht). Gesam- 
te Zeichenfarbensteuerung über CTAL-Ta- 
sie zusammen mit Zifferntasten istaber so 
willkürlich aufgebaut, daß man keine Ge- 
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setzmäßigkeit mehr findet. Man ist ge- 
zwungen, blind der Anleitung zu folgen. 

Obwohl in Tabelle 2 in Spalte „Taste“ dar- 
auf hingewiesen wird, welches Steuerzei- 
chen mit welcher Taste (bzw. Tastenkom- 
bination) hinter einem Ausführungszei- 
chen geschrieben werden kann, muß man 
an dieser Stelle den Anwender darauf auf- 
merksam machen, daß vier von diesen 
nicht erreichbar sind. Dies sind ’Return’ = 
CHR$(13),  'Shift+Return’=CHR$(141), 
Dei=-CHR$(20) und  ’Shift+Stop'= 
CHR$(131). In solchen Fällen ist zu schrei- 
ben: 


PRINTEHRS{E3) 


oder entsprechende ASCII-Werte. Ausfüh- 
rung von 'Stop' bzw, 'Shift+Stop’ mit 
PRINTCHR$(3) bzw. 131 gelingt nicht. Um 


| das Programm zu unterbrechen muß man 


direkt die ’Stop’-Taste drücken oder im 


| Programm an geeigneter Stelle den 
| BASIC-Befehl 'STOP' zufügen. 


in der letzten Spalte der Tabelle 2 stehen 
die Codenummern der zu drückenden Ta- 
sten. Diese Nummern werden im Spei- 
cherplatz 203 registriert, wenn man die 
entsprechende Taste drückt. Nach dieser 
Nummer sucht das Betriebssystem aus 
der Tasten-Code-Matrix den ASCH heraus 


| und druckt das entsprechende Zeichen 


aus. Wie Sie aus der Tabelle entnehmen 
können, gibtes für manche Zeichen keine 
Tastennummer. Diese Zeichen können al- 
so auch nicht miteiner Taste (bzw. Tasten- 
kombination) direkt abgedruckt werden. 
Nur im Umweg kann man solch ein Zei- 
chen auf Bildschirm (oder Papier) brin- 
gen. Ein Beispiel wäre inverses groß 'N’, 
das für die Umschaltung in den Groß/Gra- 
phik Modus benötigt wird (Ersatz von 
POKE 53272,21 oder Commodore+Shift 
Tasten). Dieses Zeichen am Anfang eines 
Programms wird nicht selten gebraucht. 


serie 


1909 "m Fn-Taste 8 204 Le 3 Besonders die Programme, die den gra- 


ee en ! phischen Zeichensatz für das Programm 
u nn Ser ins benötigen (z.B. Spielprogramme) benut- 
144 "@" Schwarz ETRL+1 zos pe 056 zen es sehr häufig. Es sind mehrere Ar- 
145 Eu San Be a B 32 beitsgänge notwendig, um solch ein Zei- | 
| 145 LF- 11 2 -0o £ E37 1a a we Fi - “ u r | 
147 "le Cir/Home  CLR Sen en chen ins Programm hineinzuschreiben: | 
Bene en a za Taste ’RVS on’ / Shift + ’n’-Tasten / Taste | 
i at raun 1 5 eiz ’u# f 3 . s 
| ısa "a" heil Rot COM 3 214 "ve 8 RVS off’ / Taste ”” / Retum ar 
151 m Srau-i coM+ 4 Bis vw 1 dann Cursor wieder vor das inverse 'N 
152 "a" Graue vom 5 Bis *n® 16 bringen und Taste ”” und Return 
153 '@’ heil Grn coM+ & 217 ®7° ig : ER 
154 "@ heil Blau CoM+ 7 gig o2e 2a Graphische Darstellung der Arbeitsgänge: 
155 "M* Grau-3 Com 8 212 "4" er . 
een VERS ans AR ZeilenNr/PRINT/Ieer/RVS on/N/RVS oft/”/ 
157 "MW" Cur-iinks CRSR-L gar 1° 2 Return | 
158 "3" Gelb ETRL+8 BEE "E" er “X 
159 ’9" Cyan ETRL+A 223 "N" s 


“ Cursor hier/”/Return 






TABELLE -3 


UNGESHIFT ZEH GESHIFTET ASC ZCH COMMODORE ZCH 


Del -*? eg" insert 145 ’g" Insert a" 
Return? BB Sh+Return”? 143 3 ShrReturn? neh 
Cur-recht “" Cur-links 157 "JE Cur=Lirke Li 
En -Taste-? "w' Fn-Taste-s sad Mi Fr-Tarte-d E 5 
Frı-Taste-1 " Frn-Taste-e 127 *"g" Fn-Tastert a 
Fn-Tsste-2 og" Fn-Taste-ä 133 "y" Fn-Taste-4 age 
Fn-Taste-5 "m Frn-Tarte-6 133 "3° Frn-Taste-& ge 
Eur "unter 9" Cur hoch 145 "mg" Tur-hoch rel > 
u 159 "Si" heil Rot vg 
Bar ir3 "4 5 2 u 
"an 17TE [2 vr“ u = u 2 
gu ısı "Bw" Grau-l "RU Cyan 
Hz El ir23 zn rn 5 
an ira "4" 3 "3° Home 
= IF 177 3.n.H H eG Lie i:> 
7 9 a ı rg 7 Er ar Sg 2° 
De i52 "gi" Grau-2 "g’ Violett 
Re 178 "7" 3 9 Rvs-on 
"D® 172 "7 a 
u 157 "WM heil Grn. "' orn 
re 15a te "gs" Stop 
a i87 “n Ey gi 
En 183" "a Dei-? 
ns El} 3293 Bi ge u 12 u" 
in 154 "Mi" heil Biau "z" Blau 
u 125 1 u 5 
AH 1E5 ur Ec) "z" 
a“ 155, "Im" "> Gelk 
Ei a 1-7 Su" 7 
u ısa "ı" “g" Bick She+t 
5 El 124 tz zuk Ir BD 
Hzpu E 1A gu z" 
u ar Hy" gg Rvs-on 
N 182 "m" "g' Enter She 
na“ 181 "B"  Lire Feed 
a" a2 "@" nt RYE-aFF 
m" 187" ı" M Return-7 | 
Bd I1Eı "ER" ü Er j ! 
gr 125 vg" 
ne sat p- m Gr-Klein 
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ag 4943 "it el hr tes "Er e55 "Rt 77 MN 
at 88 "pt az "pP" Ira ne ig "a 

a2 TB "1" [iu u Be ise "gr El 

93 495 "-. Bei "th" BRO "E" e55 "MR" 77 NM.MN 
a4 a6 ",” g2 "mu Ba "n® ESS "BE" 77 MN 
45 sg van af nr rn. ’ 3i E ET Be 

as 64 "mr PE- <n IiS4 "_# at" 
443," gm ce sa "zu 255’ 77 NM.MN 
33 92 “Er Isa vg" 168 "a" 28! Rot 

23 32 "4" 122 r—r gan ug“ ESS "2" 77 N.N 
sa 5a t;" ic) 93 +1" ea M Cur-recht 
si 2:19 "9° Home ir "3" Cir-Hame 147 "3" Cir.-Home zES "Re TURN 
Ss 1 0m 7 Tür N 255 "R" 77 NN 
53 61 "=" Sl Her EI "=" si 'S" Blau 
54994 "tr EI "D BER vg" sag" Grn 
55 47 "zu BB He E33 "a" 2359 Be 77 PHıN 
SE 49 *1* s3 Hi“ 123 "WW CUrange 194 "9" Schuarz 
Sr 95 "er 2 ke ea nei 95 "ei BE" 

sg 3 "pP 7? zu Dr 4 '93' 7 E59 "2" 77 M.N 
Sg Se ve" ee 153 "WM" Braun a2" Weiss 
ga 82" " Space isB " * Sh+Space 168 * » Sh+tSpace ESS "RU 77 N.M 
61 2’ 7 [us er E "2" 7 255 "2 77 M.N 
gs2 8 "q" era vo" iry PH i?7 4 Cur-unter 
63 F tm Stop 121 "8" LoadtRun 131 "MM" Load+Run 235 "2" 77 N.N 





| Die Tastencode-Matrix wird in Tabelle 3 
_ näher betrachtet. Davor müssen wir noch- 
mal Tabelle 1 einsehen. Eben haben wir 
gesehen, daß alle Steuerzeichen nicht 


j über die Tastatur zu erreichen sind. Verali- 


gemeinert kann man sagen, daß alle 
1 ASCII-Werte nicht im Tastencodematrix 
- des Betriebssystems enthalten sind. Auch 
| der Zeichensatz von ASCH 96 bis 127 so- 
wie von 224 bis 225 fehlt hier. Im Direkt- 
modus können Sie es folgenderweise 
nachprüfen: 

X=(ein Wert zwischen 96 und 127 oder 
zwischen 224 und 255) 
7 9as(“cHlS4)cHX)cH(34)")" 

Wenn Sie z.B. X=97 eingeben, wird nach 
'Return’: 

735 A’) 
auf dem Bildschirm erscheinen. Bringen 
sie den Cursor nun in diese Zeile und 





drücken Sie nochmal ’Return’. Nun e 


B5 


scheint entgegen Ihrer Erwartung 193 an- 
statt 97. Die Erklärung dafür ist, daß alle 
Zeichen, die im Bildschirm erscheinen, 
nach Bildschirmeode (vgl. $. 133 im 
Handbuch) ausgegeben werden. Es be- 
steht ein Zusammenhang zwischen Bild- 
schirmcode und ASCH-Wert. Beim Schrei- 
ben werden alle ASCli-Werte in Bild- 
schirmcode umgewandelt. Beim Einlesen 
werden aber zur Eindeutigkeit nur be- 
stimmte ASCH-Werte ausgegeben. 


Die Tasten-Code-Matrix ist auch nur mit 
diesen ASCH-Werten aufgebaut. 

Es sind 64 Nummern (von O0 bis’63) für die 
Tastatur bestimmt. Eine Taste hat, ob Sie 
ohne oder mit Shift-, Commodore- oder 
CTRL-Taste drücken, immer die gleiche 
Nummer. Die ASCII-Werte sind aber unter- 








schiedlich. Sie sind in entsprechenden 

' spalten eingetragen. 

Die Godenummern 15,52,58 & 61 (ASCH 
1,1,4& 2) werden nicht im Speicherplatz 
203, sondern in 653 additiv eingespei- 
chert. Dieser Speicherplatz istfür Flags für 
Shift- (Fl. = 1}, Commodore - {FI=2) & 
CTRL- (Fl=4) Tasten bestimmt. Wenn 
gleichzeitig mehrere Tasten gedrückt wer- 
den, wird die Summe dieser Werte abge- 
speichert. Die Betriebsreutine sucht die 
Code-Matrix-Tabelle und gibt das passen- 
de Zeichen heraus, bzw., wie beim Shift+ 
Commodore-Tastenkombination (Fl.=3), 
leitet die Graphik/Text-Umschaltung ein. 
Im übrigen wird in der Tabelle 3 eindeutig 
darauf hingewiesen, welche Taste bzw. 
Tastenkombination man drücken muß, 
um den gewünschten ASCH-Wert zu be- 
kommen. 


Eine weitere Tabelle gibt die Tastaturordnung genau so wieder, wie sie im C-64 angebracht ist. Zusammengehörige Tastatur-Code- 


Nummern, Zeichenbild sowie ASCHI-Werte sind in der Tabelle übersichtlich dargestellt. 


TRASELLF—4 


PsPeeKkt Za3): T=sTaste: ZeZeichen: AH=ASCII-bert 
Tx 2, A eind ungeshiftet 


FR 57? sg sg B3 il 16 13 [26 Er Sz 35 48 43 43 
En 1 & je 4 3 & 7 8 3 & + = £ 
zZ n + 3 u 1 “ “on u er} a 3 LI Als: Ik 2 BE u u 7 "* Le BE h =] u A „ n + Li} uı_H»b a £ u 
n 935 Sa si SE 2 S4 53 Sg 37 48 43 43 92 


aa 
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Zum guten Schluß ein Beispiel P Se 
Ta 
zur Anwendung: Ne 
rn 81 
Das schönste Programm, das N 
jch am Anfang abgetipptha- | 5 «ur 
be, ist das Klavierprogramm 2 2 
aus dem Handbuch. Arger- a 08 


lich an diesem Programm ist, 
daß wenn Sie Ihre Finger 
schneli über die Tasten be- 
wegen, der Klang nicht nach- 
kommen kann. Das liegt am 
Programm, das in BASIC ge- 
schrieben ist. Noch schlim- 
mer ist, daß es nachkiingt, als 
ob der Computer sich selbst- 
ständig gemacht hat. Die Ur-' 
sache dafür liegt daran, daß 
die Tastaturbelegung über Zeichenkette 
geschehen ist. Die Tastaturabfrage ge- 
schieht auch nach Zeichen (A$). G-64 hat 
einen Puffer für eingegebene Zeichen, der 
für manche Zwecke sehr nützlich ist, aber 
hier störend wirkt. . 

Weil man die Tastatur auch nach Code- 


10 prini“ “ 


wa i4 tr 22 5 39 
[61 = t Y 1 

Eg ! ru pH Be Bl ya " may 
ar ea SE 34 83 Bü 
ı8 13 18 ei 2E 293 
a Ss d € g a) 

1a weni ur Li} LE zu Io Li} 2 u 
65 3 [=3=; ‚a vı 72 


nummern abfragen kann, habe ich eine 
kleine Korrektur vorgeschlagen. Unten 
sind die Korrekturzeilen, die Sie in eni- 
sprechende Stellen eintragen Können. Sie 


haben damit den unerwünschten Nach- 


klang verbannt, Weitere Verbesserungen 
können Sie dadurch anbringen, daß Sie 





38 41 465 43 4 


I "pH vg IE) gu 
793 se 54 42 aa 


37 42 43 Sa S3 ai 
K 1 F F = RET 
Lyra) „y.u ya non n—a Ir] 
vs 76 38 s3 Si 13 





am Anfang des Programms ein Steuerzei- 
chen für Groß/Graphik zufügen. Das schö- 
ne Klavierbild erscheint nicht auf dem 
Bildschirm, wenn sie vorher Groß/Klein- 
Modus eingestellt haben, um andere Ar- 
beiten (z.B. Textverarbeitung) zu erledi- 
gen. - 


230 K$="56625909081417i 6221925243033323835414643494854515053° 
340 for ie1tolen(K$)step2:K(valtmid$(K$,1,2))=(i+D/2:next 


305 K=peek(203) 


310 fr=f(K(K})/m fl=sity'7:wFl+-4:ffr=zihen420 


ready. 


Computer-Kommunikation 


Spaf mit dem 1-64 


Das nachfolgende Kurzlisting ist ein tolles Kom- 
munikationsprogramm mit Ihrem Computer. = 
Tippen Sie die wenigen Zeilen ein, und warten 
Sie ab, was geschieht! Ein Tip: Der Textkann je- 
derzeit durch neue Zeilen von Ihnen ersetzt wer- 


den. 





& data 162,223,160,0,185,0,168,153,90,160 
‚200,208 ,247 ,238,24,10,238,27,10 


i data 232,209,2736,167,543,133,1,1697,85,1 
41,117,164,1689,191,141,119,164,96 
.804 for i=2578 to ?&ldıread gepoke i,g:ne 


»t 
gu sys #578 


Fi) 


iBl aft="was befiehlst du, mein meister 7 
118 afechr# (id) schr#t11 DD taftchr #1} ech 


139 for i=i1 to lendas) 


140 poke 468980+i ,asc tmid#(a#,i,1)) 


150 next 


Gompute mi 
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| New: Sonderzı 
2 Eingabe-Hinweise f 


I Um Ihnen die Eingabe unserer Listings zu 
I. erleichtern, werden künftig alle C-64-Li- 
1. stings ohne Steuerzeichen abgedruckt. 


' Tastenbezeichnungen für Steuercodes 





F8 
:1 BLACK 

| WHITE 
RED : 
CYAN’ 
PURPLE 

I:| GREEN 

| BLUE. 

ı | YELLOW 
ii RVSON 
RVSOFF 

| | ORANGE 

i ı BROWN 

i | LIG.RED 

ı ı DGREY 
MGREY 
L/IG.GREEN 
LIG.BLUE 
i| HGREY 

| ı CTAL 


ı ganz links oben} 
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CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 


. LEERZEICHEN 


FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 

ROT 

TUERKIS 


PURPUR 


GRUEN 

BLAU 

GELB 
INVERSE EIN 
INVERSE AUS 
ORANGE 
SRAUN 
HELLROT 
DUNKELGRAU 
MITTELGRAU 
HELLGRUEN 
HELLBLAU 
HELLGRAU 
CONTROL 


| Achtung: Einige Listings enthalten das Zeichen 


ür Commodore C-64-Benutzer! 


Alle Steuerzeichen werden in unseren 
LISTINGS durch Klartext, welcher die Ta- 
ste kennzeichnet, ersetzt. Eine Tabelle der 








programme 














Tastenfunktionen finden Sie in jedem Tro- | 
nic-Magazin. 
(TRONIG-NORM) 
TASTE NEBEN RECHTEM SHIFT 


SHIFT-TASTE & TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 
TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 
SHIFT-TASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE) 
FUNKTIONSTASTE Fi 
FUNKTIONSTASTE F3 
FUNKTIONSTASTE F5 
FUNKTIONSTASTE F7 
FUNKTIONSTASTE F2 
FUNKTIONSTASTE F4 
FUNKTIONSTASTE F6 
FUNKTIONSTASTE F8 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 

CONTROL-TASTE & 3 

CONTROL-TASTE & 4 

CONTROL-TASTE & 5 

CONTROL-TASTE & 6 

CONTROL-TASTE & 7 

CONTROL-TASTE & 8 

CONTROL-TASTE & 9 

CONTROL-TASTE & 0 
COMMODORE-TASTE & 1 
COMMODORE-TASTE & 2 
COMMODORE-TASTE & 3 
COMMODORE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE ZUSAMMEN MIT DEM 
NACHFOLGENDEN ZEICHEN. 

(Z.B. CTRLA ENTSPRICHT CTRL & A) 









































_” dieses Zeichen entspricht dem Pfeil nach links (Taste 


Compute mib 


programme 


Feigendes Beispiel demenstriert die Arheitsweise unseres Systems: 






20 FRINT"KASENDE" 









ı Wie in dem Beispiel zu erkennen ist, wird 
das Herz-Symbol durch das Wort CLEAR 
ersetzt. Dies bedeutet, Sie müssen die Ta- 
| ste CLEAR drücken, um das Herz-Symbo! 
zu erzeugen. Sollten Sie einmal nicht wis- 
sen, welche Taste gemeint ist, hilft Ihnen 
ein Blick in unsere Tastentabelle bestimmt 
weiter. 

Um im Listing Tastenbezeichnungen von 
Grafik oder normalen Texten zu unter- 
scheiden, werden alle Tastenkennzeich- 
nungen in geschweifte Klammern gesetzt. 
Diese dürfen selbstverständlich sicht ein- 
gegeben werden. Auch Leerzeichen in- 


STANDARP AUSDRUCK: 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILEN: 


10 AF="TEST":FRINT"ICLEAR RIGHT3 DOHNZ R 
EDFHALLOLRIGHT2 BLUEYLEUTE{SPACEH !":PRIN 
T"TRONICISPALCEIVERLAG" 

20 PRINT" {CYAN PURPLE GREENFENDE" 


10 As="TEST":PRINTLRRRRRIEHALLONBESLEUTE !"=PRINT"TRONIC VERLAG" 





nerhalb geschweifter Klammern dienen 
nur zur Trennung einzelner Tastenfunktio- 
nen und dürfen ebenfalls nicht eingegeben 
werden. Um die Tastenfunktionen noch 
besser hervorzuheben, werden diese in 
unterstrichener Kursivschrifi (Schräg- 
schrift) abgedruckt. 

Stent hinter einer Tastenfunktion eine 
Zahl, weiche ebenfalls unterstrichen ist, 
bedeutet dies, daß die letzte Tastenfunk- 
tion mehrmals betätigt werden muß. Die 
in unserem Beispiel abgedruckte Funktion 
RIGHT3 bedeutet, daß die Taste RIGHT 
(Cursor rechts) 3 mal hintereinander be- 


a4 


<117: 
















tätigt werden muß. Auch einzelne oder 
mehrere Leerzeichen innerhalb von An- 
tührungszeichen werden aufdiese Art ge- 
kennzeichnet. Das bislang übliche Abzäh- 
len einzelner Zeichen entfällt somit völlig. 
Alle Zeichen außerhalb von den ge- 
schweiften Klammern werden normal ab- 
gedruckt und auch eingegeben: 

Auf den ersten Blick hört sich das sicher 
eiwas kompiiziert an, istiedoch in der Pra- 
xis ganz einfach. Wenn man sich erst an 
die in Klartext geschriebenen Steuerzei- 
chen gewöhnt hat, wird man den großen 
Verteil dieser Schreibweise erkennen. 





Checksummer G 1.0 ist ein Prüfsummen- 
Programm, was die Eingabe von Pro- 
gramm-Listings zum wahren Vergnügen 
macht. Tippfehler werden schon während 
I des Eingebens der einzelnen Programm- 
| zeilen erkannt, Dieses System zusammen 
mit dem neuen Druckverfahren gewähr- 
leisten, daß unsere Listings meist fehler- 
frei angedruckt werden. 


Arbeitsweise und Aufhau unseres Checksum- 


| Mers: 


Unser Checksummer besteht aus einem 
kleinen Maschinenprogramm welches als 
Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette, denn 
Sie können ihn zukünftig immer wieder 
benutzen. 

Der Start erfolgt durch den Befehl „RUN“. 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „FRONIC ..". Der Check- 
summer istnun aktiv und man kann ein 
beliebiges Tronic-Listing eingeben. Nach- 
dem eine Zeile mit RETURN abge- 
schlossen wird, erscheint links oben auf 
dem Schirm eine Prüfzahl. Vergleichen Sie 
diese mit der Zahl im Heft hinter der Zeile. 
Stimmt die Zahl überein, ist die Zeile rich- 
tig eingegeben. 


Compute mi 


Auf diese Weise können Sie das gesam- 
te Listing schnell und fehlerfrei eingeben. 
Interessant ist auch, daß bei der Eingahe 
von Zeilen die üblichen Abkürzungen be- 
nutzt werden können, ohne die Glieck- 
summe zu verändern. Leerzeichen außer- 
halb von Anführungszeichen werden 
ignoriert, da diese auf die Ausführung der 
einzelnen Befehle keinen Einfluß haben. . 
Sie können Ihr Programm auch starten, 
denn der Checksummer und Ihr Pro- 
gramm beeinflussen sich nicht gegensei- 
tig. Wollen Sie den Checksummer ab- 
schalten, geben Sie einfach POKE 1,55 ein 
oder betätigen Sie die Tasten-Kombina- 
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tion RUNSTOP und RESTORE. 

Aktivieren können Sie den Ghecksummer 
jederzeit (auch nach RESET} mit POKE 
153: ; = ß 


OÖ REM ####8* TRENIC EHECKSUMMER #x.%% 

i REM VERSION E 1.0 BEI FRANK BRALL 

2 REM ---------- 7 mem 

= FOR 1I=832 TO 100B:RERD A:5=-5+A 

4 FOKE I,A:NEXT I:IF S5<>15397 THEN PRINT 
"FEHLER{SPFACEFIN{ISPACEIDATA-ZEILENESPACE 
FIXISPACE> (10-19) ":STOR 

= EYS5 832:5=0:FOR I=58444 TO 5SB605:READ 

A:5=25+A 

& FOFE I,A:NEXT I:IF 5<>18919 THEN FRINT 
"FEHLERTSPACEFINTSEPACEIDATA-ZEILENISPACE 
FIISPACE}Y (29-34) ":STOP 

7 S=0:FOR 1=48979 TO 49005:READ A:5=5+A 

& FOKE I,A:NEXT I1:IF 5S<>2888 THEN PRINT" 
FEHLER{SPACEI IN{SPACEFDATA-ZEILEN{SPARE} 
1 {SPACE 45-47) "2STOP 

9 FRINT"SDOHN2FAKTIVIEREN{SPACE}= {SPACE} 
FOKE{SPAGE}F 1 ,SS{SPALELEFAUSSCHALTEN: {SPA 
CE>FOKEISPACEIL „S5" NEW 

10 DATA149,0,133,254,162,1,189,137,3,133 
,255,160,0,177,254,145,254,156 

11 BATAZOB,249,230,255,165,255,221,139,5 
+208,2358,202,16,230,169,96,141,497 

i2 DATA165,169,22B,141,50,165,169,53,133 
„1,169,141,133,254,162,3,134,255 

13 DATA180,0,177,254,240,7,32,202, 241,20 
0,76,120,3,169,2,141,32,208 

14 DATA96,160,224,1972,0,147,17,32,32,35, 
25,35,353,32,84,82,79, 78 











Wer den Ghecksummer nichi eingeben möchte 
kann diesen auch unter der folgenden Bestell- 
nummer beziehen: 
DSF en en a EURE EEE TEN 


s116> 
<10%r 
x148> 
öBr 


32> 


“21> 


“219> 
Aasr 


programme 


Bestellnummer: 
GVIOK Kassette 
CYIOD Diskette 


15 DATA73,67,45,86,67,82,76,65,71,32,67, 


. 72,69 ,67,75,83,85,77 


1& DATA77,69,82,32,35,35,35,35,139,13,13 
„32,32,32,32,32,32,32 

17 DATA32,32,32,52,32,86,69,82,83,72,7%, 
78,32,67,32,49,46,48 

18 DATA13,13,32,32,32,32,32,32,40,67,41, 
32,70,82,65,78,75,32 

19 DATA&6,92,65,76,76,32,40,49,48,46,56, 
53,41,13,0 

27 DATA169,0,141,107,191,141,108,191,141 
„109,191,160,2,24,177,95,200, 113 

30 DATA9IS,141,109,191,160,3,200,177,95,2 
40,44,201,54,208,10,173,107,191 

31 DATA73,1,141,107,191,177,95,174,107,1 
971,208,4,201,32,240,228,258,108 

52 DATA191,174,108,191,24,177,95,109,107 
‚191,141,109,191,202,208,244,76,120 

33 DATA228,56,76,183,279,72,32,201,255,1 
79,104,144,1,138,96,32,240,255 

34 DATA142,105,191,140,106,191,162,0,1&0 
‚0,24 .32,240,255,169,91,32,12 

35 DATA225,159,0,174,109,191,32,205,189, 
167,93,76,83,191,173,33,208,145 

356 DATA243,96,105,2,164,145,200,208,4,19 
7,161,208,247,96 

46 DATA32,12,225,32,63,171,32,63,171,172 
‚106,191,174,105,191,24,32,240 

47 DATA25S,76,128,164,24,0,0,5,200 





<91> 


128: 


“2445 


“101> 


BP > 


“2395 


202 


“2137 
ass 





Schauplatz des Ge- | 
schehens ist die! 
I feuchte, kühle und! 
nur schwach erhellte 
| Grotte Cadivan des 
| schwarzen Planeten 
Desit, der aufgrund | 
| seiner Farbe seit Mil- | 
ilionen von Jahren | 
unentdeckt blieb und | 
über imense Roh- 
stoffvorkommen ver- | 


fügt. 
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Ihres Gegners. 


Action für zwei Personen. 
Gesteuert wird mit Joystick in Port 1 und Port 2. 


Sompuhe mib 


Während Ihrer langen Forschungsreise 
durch die kanggesireckten bizarren Fels- 
kanäle Dests treffen Sie auf ein zweites, 
Ihnen jedoch vollkommen fremdes Erkun- 
dungsteam. Dieses fremde Erkundungs- 
team eröffnet auch sogleich das Feuer auf 
Sie. Dank Ihres außerordentlich bewegli- 
chen und nicht gerade hilfiosen Raum- 
schiffs, entkommen Sie den ersten Schüs- 
sen Ihres Gegners ünd können Ihre Vertei- 
digung einleiten. Bei diesem Spiel können 
Sie nur durch absolute Konzentration und 
genaues Steuern überleben. Hüten Sie 
sich also vor den gefährlichen Angriffen 


‚programme _ 


DO KEMOCKRRERRRHHT NH NH HF NH HR HR HR 
1 REM & # 
ZREM x* ASTRONAUT BATTLE * 
= REM # ic} 1985 * 
4 REM &* WRITTEN BY #* 
= REM * CHRISTIAN WURZER * 
& REM #* * 
7 REM * FOR COMMNDBRE 54 * 
8 REM # # 
DREIER EEE 
10: 


50 FOKESS280,0: POKESSRBI ,O 

2004 DATA120,169,51,135,1,169,0,133,95,1 
33,90,133,88,169,208,133,96,159,240 

2006 DATA133,89,169,224,133,31,32,191,16 
3,169,55,133,1,88,76 

2010 FORT=83710832+35: READG:FOKET ‚Q=:NEXT 
2020 BYSBZ2:FOKEBSO, 150:SY5BI2: FOKESESTE 
‚PEEK 156576) AND252: POKES3S272,8 

2030 POKES4B,192 

2031 FRINT"{CLEAR HEREY DOWNI1O SPACEISTE 
ITTE{SPACEIWARTEN" 

2032 FRINT"{DOHN SPACETFOATENTSPACE}WERD 
EN{SPACEFEINGELESEN” 

2050 READXs IFX=-1 THENZOSO 

2037 CB=37244+X+8: FORI=0107: READZ : POKECG 
+1,2:NEXT= S0T02050 

2060 8 
2070 DATA27,255,255,255,255,255,255,255, 
255 
2072 
2074 
255 
2076 
2078 
128 
2079 
2080 
2081 
„255 
2082 
„255 
2083 
„255 
2084 
2572 
2085 
43 
2086 
3 
2087 
2088 
„255 
2089 
„255 
2090 
„255 
2071 
„nss 
2092 
‚255 
2100 
„255 
2102 
„255 
2109 
„255 
2110 
„ass 
2111 
„255 
2112 


259 





DATAZB,O0,223,223,223,0,251 ,251,251 
DATA297,128,128,224,240,248,248,252, 


DATASO,1,3,7,7,15,65,127,255 
DATAS1 ,255,252,240,224,224,192,192, 


DATASS,255,127,15,7,7,3, 5,1 
DATASS,2,2,4,136,72,72,40,16 
DATA142,141,191,181,149,149,149,153 
DATA141,153,165,189,157,157,157,157 
DATA36,255,255,255,255,255,255,254, 
DATA37 , 239 ‚207,207 , 151 ,55,119, 119,2 
DATASB,2572,248,211,215,175,131,15,6 


DATASO, 3,3,251,249,253,741,249,253 
DATA1L49,131,239,229,231 ,231,231,231 


DATA146,129,189,189,129,155, 157,157 
DATA143,127,187,189,157,157,157,129 
DATA130,131,219, 193,205, 205, 205,129 
DATA149,189,187,189,157,157,157,129 
DATA176,129,189,185,149,141,157,12® 
DATA177,199,247 „247 ,231,231,221,195 
DATA178,129,189,253,129,159,159,129 
DATA179,193,253,253,225,249,249,129 
DATA180,191,191,197,197,129,243,243 


DATA181,193,223,225,173,249,185,127 


DATA129,195,219,129,157,157,157,157 


z<1055> 
AB: 
1354: 
Sag: 
425 
Bar 
x<105> 
Söoß> 
z105> 
z114> 
<b8: 
122: 


2475 


1303 
FE 


755 
s149> 


SIE 


«1267 
s15> 


2437 


ı78> 


£11> 


99: 
»110> 


“1985 
x121> 
208 


17535 


“225r 
“1745 
x1357 
z2l> 


21577 
DT -P2 


<89> 
<98> 
<6B> 
<29> 
«132> 
«245> 


A7Z> 


2113 
„255 
2114 
„255 
2115 
„255 
2r1a 
„255 
2118 
„255 
2119 
„255 
2120 
„255 
2121 
„255 
2122 
„255 
2123 
„255 
2124 
„255 
2127 
251 
2128 
54 
2129 
3 
2130 
zı31 
223 
2132 
32 
2133 
2134 
247 
2135 
127 
2134 
2 
2137 
2138 
2137 
03 
2140 
171 
2141 
1 
2142 
2143 
zı44 
159 
2145 
254 
2146 
28 
2147 
2148 
5 
2149 
ss 
2150 
215i 
2157 
127 
2153 
ass 
2154 
2155 
2156 
2157 
3500 
3301 


DATALY2,127,191,191,129,157,157,129 
DRTA1H3,1797,189,251,247,231,231,23i 
DATA184,195,219,217,129,157,157,129 
DATA135,129,189,189,129,249,249, 129 
DATA140,191,191,191,159,159,159,129 
DATA137,239 239,239 ,231,231,231,231 
DATA1SO,189,189,199,219,219,251,231 
DATA132,129,191,191,135,159,159,129 
DATA147 ,129,189,191,129,249, 185,129 
DATA135,129,199,191,145,157,157,129 
DATA1S1,187,157,157,157,189,165,153 
DATA&4 ‚255,255 ,255,255,255,294,253, 
DATA6S , 255,255,248,199,63,259,255,2 
DATA&G6,243,192,0,236,252,252,254,25 


DATA67 ,255,255,127,15,117,121,62,62 
DATA68 , 247,247 „239,239 ,239 ,223,223, 


DATAGF ,30,142,192,224 ,224 ,240,248,2 


DATA7O,60,28,24,24,1,1,1,3 
DATA71,127,191,223,239,239,239,247, 


DATA72,191,191,191,127,127,127,127, 
DATA73 ‚255, 259,2553,255,224,128,39,7 
DATA74, 254,254 ,255,255,0,0,255,63 
DATA75,3,3,7,7,0,0,255, 248 
DATA7&,247 ,251,251,251,123,27,139,2 
DATA?7,127,127,127,127,127 191,191, 
DATA78,86,121,126,127,127, 127,171 ,1 
DATA7F,1,147,150,12,248,240,.224,.192 
DATASO „231 ,210,33,63,31,15,7,3 
DATAB1,203,219,211,215,218,139,135, 
DATAG2,273,225,239,247 ,247 251,253, 
DATABS,191,188,117,64,128,176,178,1 


DATASBA,57,174,174,124,56,24,24,24 
DATABS,157,1537,63,63,127,127,255,25 


DATABS „64,224 ,240,248,252,754,255,2 


DATAB7 ,0,0,0,0,0,0,129,193 
DATASB8,12,12,12,4,116,198,120,2 
DATAB9 „255,127,127,127,255,127,127, 


DATAFO,241,249,249,248,255,255,255, 


DATAg1,2,1,1,129,255,255,755,258 
DATAY2,63,63,63,63,255,239, 255,255 


DATA-i 


MASCHINENFROSRAMM 


Gompube mib 


“93> 
<106> 
“1807 
x152> 
22243 
“375 
1653> 
A133 
“11? 
<x143> 
sibb> 
<B5> 
x203> 


<106> 
<148> 


214> 


x187> 
«BB: 


x176> 


S22B> 
AZ2Br 
SAFSE 
<213> 


SC 


1/8t 
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ara 


a 


DATALS?P,O 
96,2,142,197,2' 
DATAZOG „252,207 ,174,252, 207 ,2254,9,2 
08,102,162,30, 142 ,252,.207 
3924 DATAL7Z,O,2E0, Ben 

Saal DATA131,254,207,182,0,142,253, 
2,0,200,173,0,220,201,.112 ae 
Ss02 DATA17Z,21,208,41,2,201,2.240,85,16 
2,0,147,194,2,142,195,7 
SEO DATAI7Z,16,2098,41,753, 
„1,201,1 

3204 DATARZO8,.8,177,.18,208,7,2,1931,168, 208 
.174,0,208, 142,2, 208, 174,1,208 

5605 DATAL42,3,208,152,0.37.172, 200, 
0,220,.224,109,240 „11,32,102,201 
3608 DATAL73,ZL, 208 7,2,141, 21,208 
z611 DATN208 ,251,207, 174,251 ,207,224,0,2 
08,104 u 1472,251,207 

3612 DATAITS, 1,220,41,111,141,254 
2,4,142,253,207, 162,2,32,0, 200 
SSIE DATALFTTS,1,220 

2614 DATA201,240,178,74,173,21.208,41,8, 
201,8,230,685,1582,0,142,178,2,147,199.2 
3615 DATAL73,18.708,41,747,141,16, 2093.41 
„‚4.201.4 

616 DATA208,9,172,.18,2098,97,8,141,164,208 
‚173,4, 208,142,5,208, ee 

3613 DATA1AZ,7,208, 162 ,2,3 
20, 274 ,237,240, De 
3620 DATA172,21,708,9,8,141,21.208 


„142,192,2,1472,193,2,142,1 





zur 


‚207,3 


131,16,208,41 








174, 


‚207,18 








HG, 174, 






31,208,141,255,207,41,2,201 
1 ,208,41,255,191,01,208 


49,207,41,8,201,8.240,7 
„41 ,8,201,8,206,8,17 


55, Tr? 
5,20 


zZ a 14 
42,10,2603,174,1.: 
E6E4 DATAI142,9,2 
‚„i1.209 
3625 
3637 DSTA174,0,708,224,0,209,8,173,14,20 
E,9.168,131,18,208,174,0,7208,224 255 
3639 DATAZOS,9,173,16,208,41,779,.141,1&, 
Z08,174, ‚4,208 ,224, 0,208,8,172,16,.208 
3641 DATAG,. 2,141, 18.208, 174, 4,208, 
39,208,8,172,16,208,41.225 
Bit 
3647 DATA2OS ,250,207,174,2750,.207,224,0,2 
08,43,162,979.142, 250.207 
=647 DATA174,257,179,224,54,208,17,238,2 
=3,1753,239,252,1975,162.2,147,43,208,142 
S653 DATN44,208,24,144,14,206,253,195,20 
6,252,195,162,1,142,43,208, 142,44,.208 
3671 BATAL73,255,207,41,1,201,1,240,9 
3672 DATA173,749,207,41,1.201, 1.208, 72,1 
62,30,142,0,208 „142,8,.208 






28,174 ,5,208,232 ‚232,142 


am 





2ng,z 
„141 ‚168,208 





SA7E nee „165,142, 1,209, 232,232,143,9 
‚208, 173,16,208 „41,238, 141,15,208 


un: 


2674 a 41,247,144,71,208,52 
75,201 ,162,1,142,23,208 

378 DATAS2,126,201,162,8,142,32,208,32, 
1268,201,.152,0,142,35,208,174,41,195 

3677 DATA224,176,208,1,96,174,30, 200,206 
„41.195 

3680 DATA173,255,207,41,4,201,4,240,%7 
661 DATA172,249,207,41,4,201,4,20B,72,1 
62,45,147,.4,20B,142,10,208,162,18& 

SAßE BATA142,5,708, 732,232, 142,11,20B,17 
5,15,208,7,36,141,16,208 


3682 DATA173,21,208,41,252,141,21,208,32 








ilu> 


Z1S15> 


A245: 
RC 








programme 






» 73, 201,.162,1,142,32, 208,32 
2685 DATAIG2,B,142,32, 208, 2 126,201 ,162 
„u „142,33,208, 174, 558,105,#74,17& 
En DATAZOGB,1,76, 174,30, Z056,206,58,175 
3705 DATAIT7A, 13,208,2 224 zLe1a 20h, io, 162,1 
„142,205,7,162,255, 142,204,2 
370& DATA174,132,209,224, 180 ‚z0,10,162,2 
55,142,205,2,162,1,142,204,2 
4203 DATA153,19,159,1298,141,61,2,141,&80, 
2,222,708,2,208, i2a, 189, 175,2,157,208,2 
4205 DATA1LS9,172 „2, =409,23,16,12,189,0,20 
9,9,222,0,208,40,240,7,208 ‚19,254 ,0,208 
4207 DATA208,14,173 „60.2,208,9,17%,61,3, 
77,16,208, 141 „16,208, 172,60,2,208 
4209 DATAS,7B,61,3,75,128,141 ‚50,5, z02,1 
6,171,76,24,196 
4210 DATA- -1 
4215 DATA172,254,207,192, 110,208, 12,172, 
255,207 ,169,255,153,193,2,189,40 
4216 DATA137,248,195,172,254,207,192,109 
ı208.9,172,753,207,169,1,1533, 172,2 
4217 DATAL72,254,207,172,103,208,17,172, 
253,207,169,1,155,192,2,169,44 
4218 DATA 57,248, 195, 172,254,207,192,107 
ı2098,13,177,255,207,149,255,153,192,2 
4217 DATA167,43,157,248,195,172,254.,207, 
192,102,208,18,172,253,207,169,1 
4220 DATA153,192,2,189. 255,153,192,2,167 
„21,157.248,195,172,254,207,1972,106& 
A221 DATA2OS, i6, 172,253,207, 159,255, 153, 
192,2,153,193,2,169, 42,.157,248,195 
4223 DATA172 ‚254,207 ,197,105,208,18,172, 
253,207,169,255,1597,172,2,167,1 
4224 DATA152,193,2,189,946,157,240, 195,17 
2,2754,207, 192,101,208, 16, 172,253, 207 
4225 DATA159,1,153 ‚172,2,192,173,2,1697,4 
5,157,248,195,96 
4229 DATA188,248,1975,192,40,208,13,172,2 
53,207 ,169 ,255,153,195,2,189,47 
4230 DATAIS7,249,195,188,249,195,192,44, 
208,13,172,253,207,169,1,152,194,2 
4231 DATA169,50,157,249,195,158, 248,195, 
192 ‚43,208,13,172,253,207,169,255 
4252 DATAISZE,1974,2,16%7,51,1537,249, 193,18 
8,248,1975,192,41,209,18, 172 253,207 
4234 DATA159,1,153 ‚174,7,169,255,153,195 
nel, 45, 157 „249, 195, 199,248,195 
> DATA192,42, 208, 16, 172,253, 207,169,2 
55, 153,194,2, 152,195,2,189\ 47 
A237 DATA1S 7,248, 1753,188,248,195,192, #6, 
a 18,172, 253,207, 149,255,153, 194,2 
33 DATA189, 1,153, 195,2,169, 33 „137, 240, 
1 188,248, 105, 192 208,16 
239 DATA172,253,203. 129, 1,155,1974,2,155 
‚175,7,169,52 we 195,986 
2: DATA1E2,O, 142,94,212 ‚182,137,142,5,721 
2,142,6,21Z, 162,13, 142,1,212,142,755 
3248 DATA142,0,212, 162,129, 142,4,.212,965 
S2 DATA182,0,142,11,712,162 „11 „ia2,12, 
a 142, 13,212,162,23. 142 „B,212,162,120 
425 2 DATALA2, 11,212, 986 
4259 DAta1s2,25, 160,255, 192,0,240, 3,1364, 
208,249,202,224,0,208, 242,96, -1 
4260 H 
5000 REM -—-——-- SFRITES 
solo a 
5014 DATA, says 159309 nn 
=21,128,1,190,192,1,190, 172,,221,178 
5016 Data, ae, 
S020 DaLlEERELERERLEZEESTERE 1240, 3382, 
=21,129,1,190,192,1,190,192, „221,128 
S0z2 DATA, 62 yaanna3 SRH IH HI TR HI IS 
S026& DATA, aaanssna öde, 5 


„126,201 


Compute miP 


<125r 


Xı176ar 
SRAOn 


<B> 
“166: 
<181> 
<144} 


“21Sr 


<AB> 
<242% 


1775: 


x1387 
LOFT 


KEETE 


<Z3B: 
SREFF 


x114> 
aaa 


„3165 


Er 
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„.,221,128,1,190,192,1,190,192, „221,128 
SOEB DATA en 

S032 a el 
128,1,170,192,15,170,197,,271.128 

5034 DATA, CPI ESELERESEET EEE ZEIG) 

5058 N 
129,1,190,172,1,190,2458, „221,128 

5040 en SR BI BE 

So44 DATAyaazasırayarnassaasnyndfunneeln 
178,1,170,192,1,190,192,,221,178 

Soda DATA, 52 u6dgan Stanley 
ER 

5050 DRTAyssysyanzraaenssyras nn ßfen nee, 
128,1.170,192,1,190, 192,,221,129,1.62, 

5052 ER ON 

SI DATA,IZy yslZugr sa se RR TTS 


ZUEREEHYFETFSTEIVTTTTERITIITPTEITEITT 
& 2: 
üsz DATA, 5Poy a Bsussrymarıeer Ten 


TIFETTIIETTIEITITIITITIIFITTIITTHTR 
=, — = 
S068 DATAS, gs Says era PER IETIIIEITITTT 


AIFIITTERIFSFTIFTFIFTETIPITTERTSNS 

5074 DATAyysassysassnserasagmıgeemeeriann 
SIFETIHNTIITTEIITIIITTITRTITTTTIN 

30797 DATAyarssnsssrırarısrsoyıırernnn bee 
FEAT ITIRITIEFITTIERITEIENS 
Ss0893 DATA,-S5sasrı Isa TRITT FIT TH Ir 
RENTE NIT HT 3 

[07-7 

a 

>07 LER ne ae 
sıy333=0 fa BIRD PUBL - = PRERDE 7 Bee. - Pepe en = Een 
5092 DATA, ,Bya3ı1B8r 


5096 DATA, sasserrraana an EIREIIITTEIIIN 
IRRE) = PRRBG.=7 4 PERHSR 1 RBRBNE = € PBRSpG= >= © Br ae 6 Er Be 
5097 DATA, 48,58 

Siod DATAy 4Su77 7953144132023 4409, 4, Bl a 
24, ,1,192, 5341284 2543310, 372034,56 


5102 DATA, 5112,20 2244 21,64, et. 


ma 
1 BpN« = PEpeeeBr.Z Zen 


N 


7 DATRaya Hr 7 IHR YNIRTTETIIHTRTENT 


5104 : 

&s000 REM -----— EINLESEN DER BRATEN 
002 2 

6004 FORT=GTO09999: READUO: IFO=-1THENSOOB 


8005 FORESOFOO+T,G:NEXT 

8008 FORT=GT09799:READG: IFG=—- 1 THENSOIZ 
&010 FOKES1Z00+T,O:NEXT 

sol: 

#020 FORT=OTD&2: READR: FGKES1712+T ,O2NEXT 
s082 FORT=CT0625 READE: FOKES1776+T7 „D=NEXT 
&024 FORT=OT0&2:READG: PORES1BAO+HT „O: NEXT 
6025 FORT=-OTO&2: READG: POKES19O4+T ,8r NEXT 
#028 FORT=O0T0852: READE: PORES1I4BHT „O:NEXT 
8050 FORT=OTD&2: READD: FOKES2032+7 „B=NEXT 
6032 FORT=OT042: READB: FIKESZÖOIS+HT „GO: NEXT 
2034 FORT=0T087: READO: PFOIKES216&C0C+T „Ü:NEXT 
6035 FORT=0T042: READY: FOKESZE24+HT „D:NEXT 
608 FORT=0T085?: READG: FOKESTZBB+HT „BENEXT 
&5040 FORT=OTO&A2: READO: FOKESP3FS2HT ,O: NEXT 
6042 FORT=0T057: RERDO: FOKESP415+T7 ,D: NEXT 
6044 FORT=0T0&2: READD: FOKES2480+T „Bs NEXT 
506456 FÜRT=0T057: READB: FOKESZF44+T „DB: NEXT 
s04B FORT=0T062: REABU: FORES25059+T „QOrNEXT 
&050 FORT=6T0472: READE: FOKEST472+7T „DENEXT 
s052 FORT=0TOA2: READRB: FOKESZ7SOHT „OENEXT 
höS4 2 

Faao REM -—-———— VARIABLEN, DATEN 

70902 

704 
7010 


=53248: FÜKES3?265 ,FEEK {53245} ANDZSF 
FORT=48810719: POKET „OÖ: NEXT 

7014 FORT=39T045: FOKEV+T,157NEXT 

7022 FOKEY „40: POKEV+1 ,185: FOKEöBR, 1: POKE 
699 , L:FOKESY1SB, 41: POHEV+39,9 

7024 FOKE69I6, 10: FPOKE691,10 


“265 


<182% 


1345 


ee 
a 
a 


Da 


arm wid 


Berta Dh 
Marz 


= 
Si 
er 


a 


[3 
nn 


7026 POKEV+4,35: POKEV+5, 185: FOKES9I2,1 
KE&93 ,1:POKES0170,46 

7028 FOKE&74, 10: POKE&95,10 

7027 POKEV+12, 143: POKEV+13, 150: PDKE716,1 
: POKE7 17 ‚255: FOKE700 „30: PORE701 ,20 

7030 POKESO1 74,56 

7031 = - 

7040 POKEV+15,356: POKEV+Z1 ,1+4r16+32+64 
7044 POKEY+27 ,Ir4+16+T72+64 

7045 FOKEV+30,0: FÜKEV+S1,0 

7046 : 

7050 FOKES0172,54: PFOKES0173,54 

8012 51=54272: FORT=0T024: POKESI+T ,Ü:NEXT 
8014 POKESI+74 ,31:FOKESI+21,3:FOKESI+22, 
3: POKESI+23,241 

BUIS =. 

9000 REM ---—- BRAFIK 

7010 

3020 FRINT"ICLEAR BRONNFLELERLLLITELLLLEE 


:FO 


 ECCLC£ELCLELELLLLELLEELLL® 


9022 
[" 
9024 
[57 
9026 
FOZB 
3030 


PRINT"SORICLELLEELLLIL_ ISPACEZFF!TL 


FRINT"{UPIT ISPACETF!L_ISPACEZSFELE 
PRINT" IYPILISPACEPF _ TEPACEZS> "TEL" 
PRINT" IHPILTSPACEZEFTEE" 

PRINT" {UPILISPACEZIFNT TSPACELIF IT” 
9032 FRINT*F{UPILESPACEZIF"IT_ISPACEISIL" 
9054 FRINT"IYP}ILISPACEI?F LIG.GREENFHLBRDO 
HNITTELISPACEIT HI" 

FOSh PRINT" {UPFLI{SPACEISY ELL_ 
"J{LIG.GREENFBIBRONNF"L" 

9038 FRINT"{IHPILLITBPACEIFF"_ 
RACELGFIELEL" 

5040 PRINT" IUPFLLLITSPACEIGH ! ITSPALEL3F" 
LEIcE" 

7042 PRINT" 


ISPACEIE} 





ISPACEIIKE 


LUPFLEL_ISPACESI"LLITSPACEEY ! 


SPACE IA! EEL" 

9044 PRINT" {UPIEL_ISPACESFT"—E IT ITSPÄACERS 
F!cE" 

9046 PRINT" CHPIL_TSPACESFE-LT—I [IL _TSPAG 
EZOF IL" 


2048 FRINT”IUPIELISPACEST"L 1. -LIL_TSPAGE 
22HL[" 

7050 PRINT" {UHPFEITTSPACESFEL" TEL LISPACE 
183" J1XSPACES>L" 

9052 PRINT" LBPITLISPACESITTLMTSPACEN LE 
LI£LIG.GREENIHTBEROHN SPACE1IF"LLITSPACEZ 
FE Li; 

9054 FRINT"TURFLLIHGREFFNNNTBERGHNFLLLEE® 
oh IELELLLLITLELLETLTELLIHGREYFNANNTBROHN 
3er" 

9056 FRINT"{VRIELLLELCLTILLS HELLER EELELL 
ECLEELLCEFELELT" 

93058 PRINT"{UPIELLLLCLLEELLLLEELELCLTCEEL 
ELCELLLLECCLTELE" 

930580 PRINT"{YPITLLIRVSOCNILIVES{RVSOFFILL 
RVSONISERFSOFFITLLSLIRVSONFSTRONAUTRVER 
FF3LELLLELIRVSONILIVESTRPSOFFILIRVSONISE 
RESOFF>ILLE" 

9062 PRINT" IHPSLEELELLELLELITEELTRVERN BA 
TTLE{RFSOFEFLEEELLLELLTLEEELL[E" 

7064 PRINT"<BPICCELERELLELLELILLLLECETTE 
EC£EELLCLEELCELEL" 

G066b ı 3 

7068 FOKE49152+80%, 181: FOKE49152+8364,181 
7070 FOKESS265 ,PREE (53265) OR16 

9100 SYSSOTOO 

9150 POKE714,18:FOKE?11,15:5Y558640 

94152 PRINT"IRVYSON BREHNF N’ ISPACEI=TERAC 
EINEWLSPALEFGAME"  " 

G9164 GETA$S: IFA r"N"THENTI64 

9200 GBOTOTOOO 
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«952 
267% 


or, 
«243: 
SPÖ 
1345 
x189> 
zailsr 
ZELFE 
HF 
254> 


saun 

“169% 
<201> 
<1aE 


1775 


„11l&r 
z101> 
“aal> 
x1845 
204 
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werkstatt 


In einem Programm oder während seiner Bearbeitung kommt es oft vor, daß man etwas (An- 
weisung, Zeichnung usw.) auf dem Bildschirm lassen möchte, wobei der Rest mehrmals ge- 
löscht werden muß. Da bei dem C-64 diese Funktion nicht implementiert ist, wie es bei man- 
chen Computern der Fall ist, soll das Programm „WINDOWS“ dieses umgehen, damit wir unse- 


re unlöschbaren „FENSTER“ entwerfen können. 





Nachdem man das Programm fehlerfrei eingegeben und gestartet hat, liegt es in Spei- 
cher ab Adr.$C000 bis $COC2. 

Um die Wirkung dieser Funktion zu sehen, wollen wir einen kleinen Test machen und 
zwar: 


1) Bildschirm löschen (Shift+CLR/HOME) 
2) SYS49257:5SYS549152 + Return 
3) Positionieren des Cursors an eine beliebige Stelle des Bildschirms 


4) SHIFT+SPACE drücken 


5) Schreiben: DIESES IST EIN WINDOWI 


6) SHIFT+SPACE drücken 
7) SHIFT+RETURN drücken 


8) SYS49312:POKE720,1 + Return 


9} SHIFT+CLR/HOME 


Nun stellen wir fest, daß der Satz „Dieses 
ist ein Window“ seine Farbe geändert hat 
und trotz des Löschens des Bildschirms 
noch angezeigt wird. Geben wir PO- 
KE720,0 ein, wird die Schriftfarbe wieder 
geändert in Schwarz(Farb-Code DO ist be- 
kanntlich Schwarz). 


Die Speicherzelle dez.720, enthält also 
den aktuellen Gode für die Farbe. 

Jetzt bewegen wir den Cursor an eine an- 
dere Stelie des Bildschirms und schreiben 
einen neuen Satz, nachdem man, vor und 
nach, mit den Tasten Shift+Space be- 
grenzt hat. Mit SYS49312 wird dieser 


auch ein Window. Es ist möglich, „Fen- 
ster“ in Senkrecht-Richtung zu verbrei- 
tern, indem man mehrere Zeilen unterein- 
ander schreibt. Vorausgesetzt, daß am 
Anfang und Ende die Tasten Shift+Space 
gedrückt worden sind. 


Mit SYS49257 kann man den ganzen 
Bildschirm samt Windows löschen und 
mit SYS 49312 wieder neu entwerfen. 

Um aus dem Programm auszusteigen, 
muß RUN/STOP+RESTORE eingegeben 
werden. Der Inhalt der Windows bleibt 
trotz drücken der RUN/STOP+RESTORE- 
Taste erhalten. Dadurch kann man jeder- 
zeit diese Windows mit SYS49152 abru- | 
fen. 


Eine mögliche Anwendung wäre, Win- 
dows in ein Programm einzubauen mitfol- 
gendem Format: 

10 PRINTCHRS(160);"WINDOW“;CHRS(160) 


Funktionsweise des Programmes „WINDOWS“ (Assembler Listing) 


Das Programm ist in drei Teile aufgeglie- 
dert, die im Folgenden erklärt werden sol- 
len: 

Als erstes sind die IRQ-Vektoren zu verän- 
dern, damit sie auf die Adresse $C011 zei- 
gen, wo eigentlich unsere Routine „Progr. 
Start“ anfängt. 


ROUTINE: PROGR.START 
Dieser Teil des Programmes schreibt - 
nachdem es geprüft hat, ob der Windows- 


Inhalt am Anf. bzw. Ende mit Shift+Space 
gekennzeichnet ist - den Inhalt aus dem 
Speicherbereich $C400-$C7FF in den 
Original-Bildschirmspeicher ab $0400. 
Dieser Vorgang wird durch die veränder- 
ten IRQ-Vektoren jede 1/60 sec. wieder- 
hatt. 


ROUTINE: NEU 
Durch SYS 49312 ($C0A0) wird der Bild- 
schirmspeicher ab Adr. $0400-$07FF, 


nach Adr. $C400-$C7FF kopiert. 


ROUTINE: AUS 

Mit SYS49257 ($C0069) wird der Spei- 
cherbereich von $C400-$C7FF. der uns 
als „Hilfs-Bildschirmspeicher“ dient, auf 
Null gesetzt. Anschließend erfolgt das Zu- 
rückschreiben des Original-Inhaltes 
($EA31} in die Speicherzellen $0314 bzw. | 
$0315. | 


054 LISTING MIT CHECKSUMMEN (ID Vi_o) | 














85 REM GEHSHHHBRBSHSIEHESSIH «1197 I 

j 100 FRINTIELEARF"SFORI=CTO?:FRINTSNEXT: 
50 REM OHRRSSHSHHHSHH B4 > FRINTTABLLO SH SPALEIWISPATEI TISPACEINE 
55 REM # # “1175 SRAGEYDISRACEIDISPACEIWISPACEISTSP ACER 
SOFEM#OHINDOUS % si30> a = XPab | 
85 REM # BY # AST 195 FRINTSFRINTTAB{L2)" (CI ISRACEIS, VALEN j 
70 REM # S.VALENTIND # <R50> TINO" <117:> 
75 REM 4 4500 GIESSEN # Zar: 110 FRINT:FRINT=:FRINTTAB (8) "SYS{SPACE>43 : 
80 REM # # z142> 1S2XBPACEI=TSPACEIFROG. START" j SF, 

186 GCompute mik 
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115 FRINTSFRINTTAB BI "SYS{IBFPAGCESA92Z57ISR 








1004 DATA145,257,166,254,138,024,105,212 


ACEI=TSPACEIWINDUWLSPALCETAUS" Z21B> „133,254,173,208,002,145,253,134, 2579 . z4Al} 
26 PRINT:FRINTTAR {EI "SYS{SPAGEIAHITIZIER 1005 DATA?34,200,192,200,708,211,230,002 

BEEY SPACE WINDOWTSEAGE NELN <B> ‚155,002 ,041 „007 „201 ,005,209,0068,2132 SICH 
125 FORT=49152T0493595TEF16& Berl 5 1006 DATA155,002,041,000,123,002,076,,049 

130 FORI=OT015: READA: S=S+Ar PGKET+1,A=NEX 254 ,120,160,000,152,170,153,255,1690 224775 
T: I=+1:READB: IFR< »STHEN140 Fear. 1007 DATA159,196,133,254,177,253,041 ,000 

135 S=lr I=0:NEXT:END :197: ‚145,253,200,208,247,230, 754,232 2992 SITE 
140 FRINT"FEHLERISPACE} INISPFACEIDATAZEIL. 1008 DATA224,004,208, 240, 169,049, 141,020 
EISPACERNR_ = "FEEK (63) 4PEEK (54)#256:5T0F 2 ©<154> „‚003,169,234,141,021,.005,088,076,1810 1225 
1000 DATA120,16%7,017,141,020,003,169,192 .1009 DATA000,200,144,088,037,004 ,004 ,005 
„141,071 ,003,088,169,000,155,002,1388 2144: ,008,007,196,1968,177,198,199,000,1476 1715 
1001 DATAO0F&,155,002,041,007,170,199,144 1010 DATAL20,160,0900,152,170,175,251,133 
„192,133,251,133,253,18%,154,192,7311 zarg: „252,169 ,004,133,292,169,176,135,2428 “1B6> 
1002 DATAISS,252,189,149,192,1533,254,160 1031 DATA234,177,251,145,255, 200,208, 247 
„000,177,251,17U,201,0%65,208,009,2573 LS6 „220,257,.220,254,232,224,004 ,208,3371 Satan 
1003 DATA185,002,073,129,133,002,076,083 1012 DATAZ4O ‚088,096 ,000 ,000 „000,000 ,000 
„192,165,002,041,128,240,018,138, 1566 250 „000 „Od, O00, 900,000 ‚000 ,000,000,424 zur 


Dieses Basic-Unterprogramm wurde für 
anspruchsvolle Anwender geschrieben. 
Damit ist. es möglich, an jeder beliebigen 
Stelle und in jeder gewünschten Grüße 
Windows zu entwerfen. 


Außerdem wird der Text innerhalb des 


Windows so geschrieben, als wenn man 
zusätzlich noch einen kleinen Bildschirm 
zur Verfügung hätte. Diese UP zu benutzen 
ist sehr einfach: man muß - nachdem das 
Maschinenprogramm im Speicher durch 


UP Windows-Demo 


den Basic-Loader geladen worden st - 
sechs Variablen initialisieren und .an- 
schließend die Subroutine mit GOSUB 
10000 abrufen. 

Folgende Variablen muß man vorher defi- 
nieren: 

X = Zeile Anfangs-Position des Windows 
(Werte 2 bis 38) 

Y= Spalte Anfangs-Position des Win- 
dows (Werte 1 bis 25) 

ZX = Zeilenlänge des Windows 


{Werte 1 bis 39-X) 

ZY = Spaltenlänge des Windows 

(Werte 1 bis 24-Y) 

EL = Anzahl der Elemente des String Vek- 
tor ZL$(KK) (Werte 1 bis 9). Falls mehr ge- 
braucht werden soll, muß das Feld dimen- 
sioniert werden. 

ZL$(KK) = String, wo sich der Text befin- 
det (max. 255 Zeichen). 

In dem Demo-Programm sind die Zeilen 
von 60 bis 75, die dieses UP initlalisieren. 




















C64 LISTINGS MIT CHECKSUMMEN tC V1.0) B}3SFT(AA-DISEHRE (FI) S207E 
10055 FÜREE=1TOEL ABRH 

50 REM UNTERPROGR. INITIALISIEREN <ZO1> 10089 FOREK=1TOLEN (ZI #(EE)) AT 
55 FRINT"ICLEART" <B5 10065 PRINT" {HOHES "LLEFTEFYYSF „BB: SPC fa 
&0 %=10: Y=5: ZX=19: ZY=SG: EL=T <127% 74 MIDSZLS ER} „KK, 1) JCHRF(14SI <192> 
65 ILf(li)e"se-=2>2=2=2=2=2=2====smmerse=T5fPAcErW 10070 Ahsäh+l Saar: 
{SPACE L{BPACETNESPACEIDISPACEFUOISPACEIW 10075 IFAA>XHZXTHENGÜSUB 10095 s101> 
SSPALEYSISPACE + =S====s2=mmmmun mm mamma 116% 109906 IFBB=Y+ZYTHEN 109070 ist: 
70 ZL# (2) =" ISPACESSDISRACEHEISPAREIMISPA 10085 NEXT:NEXT <B> 
CEIÜTSPACES}= sauna ==2oe=cöpAl 10090 SYS49312:5Y549157: RETURN 98: 
ESIEVISRACEFI u <1B0> 10095 PRINT" IHOHEF"LEFTFÄYYE,BBI SPC (AA) 
75 ZL$(3)="== ={SPACE2?S. VALEN z CHR# FI} i ee 
TINOTSPALE2I=======- Hmmm sumeo emo 10100 BB=BB+l:AA=X: IFBB{=Y+ZVYTHENFRINT"Z 
ses IA HOHEITLEFTE (YYE, BED: SPC (AA-LICHRE FT} <BB 
100 BOSUBLOOOG:END 73% 101109 RETURN <S15> 
200 REM UNTERFROBRAMM "WINDOWS-BEMD' 156: 
10000 Yys=""ı FORI=1T025: YYE=YYS+CHRE 117} 
NEXT 39% 
10065 FI=1&40: ER=0 ck 
10010 FÜREE=1TRBO:FFE=FF$+HÜHR$ (32) +CHRS 4 
223 ı NEXT 216% 
10018 X=X-1:Y=Y-1:2X=2X-1: ZVY=2Y-1 S2og 
10029 IFX+ZX>SFORK< LORZXIOTHENER=1:RETUR 
N x14?: 
10025 IFY+ZY>Z40ORYSOORZYIOTHENER=1: RETUR 
N 
10530 IFEL>FORELSTTHENER=1: RETURN 
10035 89549257 
19040 FOREE=1TOEL: CK=CH+LEN ZLE(EEI JE NEX 
T sol: 
10045 FOREE=EL+1T09: ZL+IEEI=FFFINEXT:EL= 
3 <1215 
10059 Ad=XıBE=YıPRINT" {HOHER "LEFTECYYS,B 
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| I POKE 808,237 


| | PoKE 19,40 ; 
| | Poreıgo 


Tips € Tricks für den 
Commodore 64 | 


Grammophon 


Mit diesem Programm, kann man sich über den Computer Kas- 
setten anhören. Man startet die Routine, legt eine Kassette ein 






POKE KOXKK | BESCHREIBUNG 


POKE 775,200 ı Listschutz 
POKE 778,167 | m Listschutz | 


Run/Stop Restore 
Run/Stop Restore 













| _POKE 808,225 


POKE 650,128 
DE 


POKE 657,128 
POKE 657,0 








Shikt-Modus 
Shift-Modus 


Return anders 
Return anders 










Cursor schneller 
Cursor langsamer 


GET-Befehl Cursor 
GET-Befeh! Gursor 


POKE 563 > | 
_ POKE 56325,255 zeilk 

POKE 204,0 

POKE 207,0:POKE 204,1 


POKE 819,246 | Save-Schutz 
POKE 819,245 | | Save-Schutz DER 
POKE 808,49 Run/Stop 
POKE 808,237 = Run/Stop 


POKE 19,64 INPUT ohne '?' (1) 
POKE 19,0 | [| _INPUT ohne 7”) 
POKE 792,255:POKE 793,252 
POKE 792,71 :POKE 793,254 













POKEsfü cd 





Dauerfunktion für alle Tasten 
Dauerfunktion für alle Tasten 


Run/Stop Restore—>Reset 
Run/Stop Restore >Reset 


Compube 


und drückt die Play-Taste. Das Programm kann nur durch Stop/ 
Restore abgebrochen werden. Die Tonqualität ist zwar nicht be- 
rauschend, jedoch ist Maschinensprache nicht schneller als 
Schall. Am besten sind gesprochene Wörter zu erkennen. Bei 
dem meisten Musik-Kassetten ist das Schlagzeug zu stark auf- 
genommen und ist deshalb sehr laut zu hören. 


1000 FORK=16384TD014440: READG: F=P+8: FOKER 
„B:NEXT ; 

1010 IFF< >4570THENPRINT"ERRÜR{SPACEIINTE 
PACE?DATA"=END 

10620 FRINT"YOULSPACEILÄANTSPALEFUSETSPACE 
+THEISPACEFBRAMMOFHON, IF{SRACE} YOUTEPRACE 
35TART 

1030 PRINT" THETSPACEIROUTINE TSPACEIWITHE 
SPACE>  SY515384 ' ISPACENTHENTSPACEFUT 
10640 PRINT"AISRACEIMUSICISPACEICASSETTET 
SPACEHIN{SPACEITÄAPEISPACEIANDIEFACE>IFRES 
S{SPACE}FLAY 

1050 DATA159,57,1431,20,3,167,0,141,32,20 
8,141 ,33,208,32,68,229,173,13,220,41,1& 
1052 DATA240,249,169,13,141,24.212,162,0 
„232,224,10,208,251,173,52,208,73,1,141 
1054 DATAZ2,208,1491,33,208,169,0,141,24, 
212,141,13,220,76,16,64 



































90% 





<90> 
“1223 


“1385 






Multi/BW 


Nachdem die Routine gestartet wurde, 
wandelt sie ein farbiges Bild in ein einfar- 
biges Bild um. Bei Bildern, wo die Punkte 
zu eng aneinander liegen, eignet sich die 
Routine nicht, weil nachher alles zu un- 
scharf ist. Man sollte nur mehrfarbige Bil- 
der zum Umwandeln nehmen, da dabei 
das Bild gröber wird. 


EIN 

















EIN 
AlSı 


>| Das Listing finden Sie auf der 
EIN gegenüberliegenden Seite! 
AUS 









Hirescopy 


Wenn das Programm mit ‚SYS4096' ge- 
startet wurde, druckt der Drucker das Bit- 






AUS _ 
EIN 





mapping-Bild aus, Er benötigt dafür nur 
AUS 40 Zeichen pro Reihe, ist jedoch nur für 
EIN einfarbige 7-Bit Printer, z. B. für den Sei- | 
AUS kosha GP-100VC, geeignet. Nach dem 
> | | Drucken bleibt das Bild noch auf dem 
EIN Bildschirm, der Druckvorgang ist aber 
AUS schon beendet. 
ai Das Listing finden Sie auf der 


gegenüberliegenden Seite! : 
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Listing zu den Tips & Tricks 


tips & tricks 


1030 PRINT" {DOHNFPICTURETSPACE} TFOISPACEY 














EWLSPACEIWITHLSPACEH "SYS40000 ' 75 
1040 DATA169,57,141,17,208,169,24,141,24 
nA f i/BW" »208,169,0,141,32,208,169,32,133,251 “425 
U Hi] 1042 DATA169,0,133,250,170,168,159,0,133 
ee „252,177,250,41,192,240,6,169,192,101 <6l> 
1000 FORK=4096T04460: INFUT"MNEMONICTSPAC 1044 DATA252,133,252,177,250,41,48,240,6 
E33 MNSSLE=-RIGHTE (MNE, 1) EHFSLEFTEMNE, 1) <215% „169,48,101,252,133,252,177,250,41,12 «181> 
1010 IFL&>"@"ANDLE< "5" THENL=ASC (L$) -55 «2157 1046 DATA240,6,169,12,101,252,133,252,17 
1011 IFHEF"@"ANDHES"G"THENH=ASC (H$) -55 £28* 7,250,41,3,240,6,169,3,101,252,133,252 x22> 
1012 IFL$>"/PANDLE< "2 "THENL=ASC (L$) -48 22855 1048 DATA1&5,252,145,250,200,208,197,232 
1013 IFH&>"/"ANDHES "3 " THENH=ABCIHS) 48 a6: „230,251 ,224,32,208,190,169,4,133,251 <69% 
1020 FOKER ,„H#1&+L2NEXT:FOKELFB,O=:WAITLFB 1050 DATA162,0,160,0,169,15,145,250,200, 
„ie5Y5441i 255% 208,251 ,232,230,251,224,4,208,244 ,9& «2123 
[1] - än = = a Sp = A a 
Listing zu den Tips & Tricks ra 400001040113: READG: P=P+G: FÜKEK Er 
„B: z 
1010 IFP< >17124THENPRINT"ERROR{SPACE} ING 
SPACEIDATA" SEND <178> 
zug g® 7: 1020 PRINT"ALLTSPACEFLCORRECT. TSPACEI YOUE 
Fliresco DY SPACE}LANISPACEIFORMISPACEIALSPACEIMULTX 
_AIFESCOP = COLOUR x74> 


Ma a AA 2a BA FF 20 CO FF BZ Od 20 
Is Aa ga Eu 25 Im RS Da 55 FA As 3 
FF AS ID 85 FC 99 28 


Aa FF 5 FE 85 


Fo Bi 55 AS 


FA Ba 82 05 FB 68 EE& FA EU ER FB 13 95 


Y Fa 03 66 FA 68 [5 FB 25 RS FA ES 39 
FH A? 3F RS FE RS Bi AS S1ı FA ES FR DO 
ba E93 50 AZ 25 Aa ul 25 ER FF RAS 53 HE 
Bd 2 SE AD 11 9 a3 al DE FF 45 49 52 


FF 2a 18 11 
FE Aa 87 55 02 
"FH Ga 85 

13 56 85 EFF HZ 00 ED 0 a2 25 FD FO 06 
09 ER RS FF 20 D2 FF 4a FD AS FD Ca 01 
IB AS As 04 AC 03 FF es 02 Fa 83 40 8 
ge 20 13 18 83 Da FH RF 07 85 BE CS 03 
37 C9 37 Fa a3 Es FA ea Es FB 18 RS FR 


m: 
ig} 
fe 
KT} 
LE 


2a 06 HF 05 Zu De 
a3 20 95 18 ER EB G7 Da Fi RAY ul 85 FE 
FF 5 FE ES AS FE 66 58 
Da D2 C6 D6 Da BH AS BD 2a DZ FF CS Fü 
ıa 18 AS FA 63 63 85 FA 90 BZ EE FB AB 

23 55 63 4; 13 16 HS FA 23 
63 33 553 FA 39 B2 ES FB EB HS FR 23 67 


Fa 83 CE FA EB L6 FR 30 HS FA EI 2a 55 
FA E83 24 85 FA 95 BZ ES FB EB RS FA 23 
es FH EG 02 CE FE EA 20 44 ES Fa da 85 
2 Eu FE HS FE CA Oo DO EF AS FA Ca 0 

R3 16 55 


Sc Aa 11 2a BL FF AS 06 85 03 











N3 3B SD 11 Da na 13 20 18 
HI 25 253 03 A9 SO 20 DE 
FD AZ 86 Ra Sa Ei FR >30 4a 





NEW RELEASE: SCHNEIDER COMPILER 


‚Einen Compiler für den Schneider CPC 464 hat die Firma 
Günster Computertechnik auf den Markt gebracht. Der Com- 
piler, lieferbar in Disketten- und Kassettenversion, besitzt ei- 
nen umfangreichen Befehlssatz und ist in der Lage, Fließ- 
kommaarithmetik zu verarbeiten. 


Bei Anwendung des Compilers erzielt der Anwender eine 
sehr große Geschwindigkeitssteigerung, die im Bereich von 
10-fach bis 50-fach möglich ist. So wird, um den Bildschirm- 
speicher zu löschen, eine Programmausführungszeit von 
1,85 Sekunden benötigt, wohingegen das normale Schnei- 
der-BASIG bei identischem Programm 55,16 Sekunden läuft. 
Der Gompiler wird auf Kassette für 79,-- DM und für Disket- 
ten für 89,-— DM geliefert mit ausführlicher Anleitung und 
Handbuch. 
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Nähere Informationen: 
SOFTWARE TEAM Joachim Günster, 
Mühlenstr. 12, 5431 Boden: 


Sort. TEam-Beruin 


Software und Zubehör 


C: 64] Rear Schrieider 





Über 2600 Programme i immer auf Lager. 
Ständig die neuesten Programme aus England und 
den USA. 

Gratiskatalog anfordern: | 
Anton Peter & Partner, Kamminerstraße 9 
1000 Berlin 10, Telefon 453 2711 
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„New Games" 


für den Commodore 16 

Endlich ist es soweit! Bei den 
Softwarefirmen findet auch 
der C 16/116 immer mehr Be- 
rücksichtigung. 
So gibt es schon einige Pro- 
gramme im Fachhandel. Wir 
stellen Ihnen hier einige 
Neuerscheinungen für dieses 
Computersystem vor. 


ARENA 3000 


ARENA 3000 versetzt den Spieler/die Spie- 
ierin in die Weit der Gyborgs. Zahlreiche 
Levels gilt es zu durchlaufen. Jedes Level 


| - eine Arena - birgt die Gefahren der au- ' 


Berirdischen Angreifer, die nachihremLe- 
ben trachten. Sie können sich in jede be- 
liebige Richtung bewegen und die Feinde 
mit Ihrem Laser-Strahl vernichten. Dieses 
Spiet zeichnet sich durch seine enorme 
Schnelligkeit und den Variantenreichtum 
aus. (Beim Test dieses Programmes hatte 
unser Chef-Programmierer einen High 
Score von 1.385.455 Punkten!). Sie sehen 
also, dieses Spiel hat scheinbar „keine 
Grenzen“! 
Hersteller: MICRODEAL 

is: ca. 20 Mark 








: Treibstoff zu füllen, ohne aber von feindli- |: 


wenn man einmal das Datenverwaltungs- 
Software benutzt. Man kann MASTERFILE 


nen, denn es enthält etliche Möglichkei- 
ten, dieman normalerweise bei vergleich- 


die Adressen und Telefonnummern von 
Freunden, Verwandten, Geschäftspartner, 
Arzten, Händler oder was immer Sie wol- 


CUTHBERT IN SPACE 


GUTHBERT IN THE SPACE ist ein rasantes 
Space Shuttle-Arcade-Spiel, bei dem es 
darauf ankommt, das Raumschiff mit 


chen Angreifern „liquidiert“ zu werden. Zu 
diesem „Zweck“ sind Sie mit den modern- 
sten Waffen-Systemen ausgestattet, die 
es Ihnen erlauben, jeden Außerirdischen 
zu vernichten. Ein excellenter Spaß und 
viel Spielvergnügen ist Ihnen gewiß. 
Hersteller MICRODEAL 

Preis: ca. 28 Mark 





CUTHBERT ENTERS 


THE TOMBS OF DOOM 


CUTHBERT ENTERS THE TOMBS OF DOOM ist 
ein typisches „Pyramiden-Such-Spiel“, 
bei dem unser Held allerlei wertvolle 
Kleinode aus dem „Reich der Toten“ (aus 
der Grabstätte eines Pharao) sammeln 
muß. Dabei begegnen ihm „finstere Ge- 


MASTERFILE 


Die eindrucksvollen Möglichkeiten des 
CPC werden einem so richtig bewußt, 


stalten“, die ihn bei seiner Grabräuberei 
ganz schön zu schaffen machen. Es istein 
Spiel mit viel Witz, einer hervorragenden 
Graphik und „spannenden Momenten“! 
Hersteller: MICRODEAL, 41, Truro Road, 
St. Austell, Cornwall PL25 5JE, England. 
Preis: ca. 28 Mark. 





für CPG 


Weise darstellbar. 

Ein File zu erstellen ist nicht so einfach, ist 
es doch auch die Grundlage für spätere 
„Kinder“-Files. Aber die vielen Seiten lan- 
ge Programmbeschreibung geht sehr ins 
Detail und führt den Neuling bei seinen er- 
sten Schritten sicher durch das Pro- 
gramm. Sind die Daten erst einmal einge- 
geben, können sie leicht verändert und 
bearbeitet werden. Verschiedene Mög- 
lichkeiten, wie die Sortierung in alphabeti- 
scher oder numerischer, in aufsteigender 
oder absteigender Reihenfolge sind vor- 
handen. 


programm MASTERFILE von Gampell 


ohne Übertreibung außergewöhnlich nen- 


baren Programmen auf Homecomputern 
nicht finden wird. 

Die Art der Information welche mit diesem 
Programm betrieben werden kann ist 
praktisch endlos. Natürlich speichert es 


In der Suchroutine können verschiedene 
Kriterien miteinander verbunden werden 
und in den Möglichkeiten sind auch nu- 


ten. Und die gespeicherten Daten sind 
leicht zu handhaben und auf vielfältige 
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merische Vergleiche wie ’gleich’ (=) oder 
‘größer als’ (>), sowie direkte Nachweise 
wie vorhanden’ oder ’nicht vorhanden’ 
eingeschlossen. Dadurch können bei der 

i suche ganz komplexe Sachverhalte er- 
fragt werden. 

I Das erstaunliche an diesem Programm 
sind die verwandtschaftlichen Verhältnis- 
se von Files untereinander, eine Möglich- 
keit, die zum erstenmal auf einem Home- 
computer verwirklicht wurde. 
Angenommen ein File wurde errichtetund 
enthält die Korrespondenz des Geschäfts- 
führers einer politischen Partei. Dabei sind 
etliche Briefe von Privatleuten, Schreiben 
von verschiedenen Organisationen und 
andere Dinge, die man mit der Post erhal- 
ten oder auch versandt hat. 

Jedesmal den vollen Namen einer Organi- 
sation, die Anschrift und alle sonstigen 
wichtigen Grunddaten, 2.B. Konto, Telefon, 


Telex usw., einzugeben, würde eine um- 
fangreiche aber unnötige Arbeit sein. 
MASTERFILE erlaubt es, ein „Eltern“-File 
zu erstellen, daß alle zentralen Informatio- 
nen enthält, während alle anderen Einga- 
ben, die mit dazu gehören, einem „Kin- 
der“-File zugeordnet werden. 

Das Kinder-File liest automatisch die 
Grundgaten vom Elternfile und stellt sie 
zur Verfügung, somit werden jedesmal al- 
le passenden Daten wieder zusammenge- 
fügt. 

In einigen professionellen Datenverwal- 
tungsprogrammen - der dazu nötige 
Computer kostet ein Vielfaches dessen, 
was Sie für Ihren GPC ausgegeben haben 
- ist die Idee schon auf „Großeltern“- und 
„enkel”-File erweitert worden. Diese wer- 
den hier noch nicht benutzt, obwohl das 
Thema damit noch nicht erledigt ist, denn 
es gibt schließlich auch „kinderlose EI- 


report 


tern“-Files und „Waisen“-Files. Etwas 
komptiziert für den Anfang? 

Das beste Datenverwaltungsprogramm, 
das ich kenne, liest direkt von der Diskette, 
so daß die Größe eines Files nur begrenzt 
wird von der Diskettenkapazität. Masterfi- 
le hatimmerhin den respektablen Umfang 
von 32 K zur Verfügung und die meisten 
Anwendungen scheitern nicht an der 
Größe des Memory. 

Dieses Programm ist ein Zeichen dafür, 
daß nun vorzügliche Software mit profes- 


sionellen Eigenschaften auf den Markt | 


kommt und es nur noch nötig ist, daß der 
Anwender richtig damit umgehen kann. 


Wieviele Geschäftsführer von Firmen, Or- 1 


ganisationen, Vereinen usw. kennen die 
Möglichkeiten des Marktes und wissen 
diese richtig, d.h. preiswert zu nutzen. 
Hersteller: 

Campell Software; ca. 98,-- DM im Fachhandel. 





Unser Softwarefeuerwerk - zündende TITEL mit explosiven PREISEN 


; Versand per NN oder Ver.-Scheck zzul. 3,- DM. Fordern Sie unsere Preisliste mit 9,20 DM in Briefmarken an. 
h Auslandsaufträge nur gegen Vorausscheck. 


M. M. SOFTWAREVERSAND, POSTFACH 801202 - 8060 MÜNCHEN 86, Tel. 089- 4723 68 | 
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Für C-64 auf Tape /Disk Für G-64 auf Tape Disk 
Winter Games 35,00 / 45,00 Wizard & Princes / 49,00 
Summer Games I _ 35,00/ 45,00 Fahrenheit 451 /56,00 
Elite (engl.) 45,00 /55,00 Rendevouz w. Rama . /56,00 
Kennedy Approach 45,00 /. 49,00 Amazone / 56,00 
| Imp. Mission 30,00/45,00 Space Pilot 15,00/ 
| Shadowfire 35,00/59,00 Blue Thunder 15,00/ 
Frank Brunos Box. 28,00 / 45,00 Beach Head Il / 45,00 
Dough Boy 39,00 / 49,00 Donald Ducks Pi. 749,00 | 
Rocky Horror Show 28,00 / 38,00 
Mystic Mansion 39,00 / 50,00 Für C-I6 auf Tape 
Whyrlinurd 39,00/ 
Nodes of Yesod 39,00/ Las Vegas 36,90 
Nick Faldos Golf 33,00/ Air Combat Emulator 52,00 
Ghetto Blaster 37,00/ Chess (Grandmaster) 35,00 
Speed King 29,00/ Daley Thomps. St.Ev. 29,00 
Rocket Ball 26,00/ 
Fourth Protocol 34,00/ 10 Diskeiten im Kunststoffalbum 
Cricket 39,00/ zum SUPERPREIS 393,00 
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Hueycobra 


Sie müssen als Hubschrauberpitot einen 
Gefangenen aus dem unterirdischen Höh- 
lensystem großer Bergkeiten retten. Das 
ist natürlich keine einfache Sache, da die 
Höhle sehr eng ist und mit Barrikaden ge- 
Schützt wird. Zudem machen auch noch 


für Commodore 16° 


grirdischen 


Das Spiel erstreckt sich über drei Bilder, 
die automatisch weiterblättern, Ab Bild 2 
kommt für jeden zählenden Treffer ein 
Monster hinzu. Jeder Treffer ergibt 10 
Punkte, und bei 1000 Punkten erhalten Sie 
einen Bonus-Hubschrauber. 

Am Ende der Höhle nehmen $ie dann den 
Gefangenen auf und fliegen mit ihm zu- 











ist, Steuern können Sie den Hubschrauber 
mit dem Joystick. 
Hinweise zum Abtippen: 
Um einen korrekten Spielablauf zu ge- 
währleisten, wurden einige Leerzeichen 
verwendet, die der Bildfolge dienen. 
Rechte Bildseite bei Höhlenende: 

„c=" + ,K“ Taste _ 
Linke Seite bei Höhlenanfang: 
 „SHIFT“ + „Space“ Taste 
Über der Plattform: 

„SHIFT“ + "-“ Taste 





Monster die Bergungsarbeiten hinderlich. | rück zur Plattform, die mit „Ziel“ markiert 


150 FOKEV+19 ,PEEK (V+1P) ANDSOR4B 

155 POKE740,56ı ELR 

1&0 FORT=832T0849: READA:ı POKET „Ar NEXT: SYS832 
180 FORT=12800T013071:READA: FOKET „A: NEXT 


10 REM (C)RALPH HÜRNEBER 

| 100 COLORO „2,5: COLDR4,2,3:VOL8 
110 V=65280 
140 POKEV+18,„PEEK (V+1B) ANDZS1 


DATA162,0,189,0,208,157,0,48,189,0,209,157,0,49,202,208,241,96 





1440 

ee az 1S10 DATAZ4,60,126,153,255,129,129,231 
1452 DATA240,0,193,195,254,2 ‚60,126,153,255,129,1279, 
1454 DATA&,&, 31, 47, 10er) 127, FE 1512 DATA129,129,255,195,126,60,60,66 
1456 DATAO,0,193,195,254,252, 128,128 1514 DATA0,60,60,195,195,102,60,0 
1458 DATA15,0,131,195,127,95,1,1 1516 DATA60,0,129,153,24,0,195,24 
1460 DATA2S5,96,248,244,242,254,16,B 151B DATA102,0,8,127,0,0,0,129 

1442 DATA 0,0,131,195,127,95,1,1 1520 DATAO,0,0,0,0,0,0,0 

1464 DATA76,76,248,244,242,254,16,8 1522 DATA255,255,255,255,255,255,255,255 
1482 DATA9B,82,74,70,98,82,74,70 1524 DATA24,153,90,60,24,28 36,56 
1484 DATAO,0,0,8,8,77,239,255 15726 DATAG,0,0,0,0,0,0,0 

1496 DATA255,239,77,8,8,0,0,0 1528 DATAO,0,0,0,0,60,0,0 

1488 DATA255,255,239,109,77,68,64,0 o ee 

1470 DATAO,64,68,77,109,239,255,255 I le 

1492 DATA7,127,15,3,31,63,7,351 1900 ZZ=05 A=68: Bl=1ıMl=3 

1494 DATA248,128,240,252,224,192,252,224] 540 B0T05000 

1496 DATA3,127,15,31,3,63,31,3 | 

1500 DATA2S2, 128,240 224,252, 192,224,252| 1778 REM SPIELROUTINE 

1502 DATA254,240,168,204,200,128,64,0 2000 X=JDY (1) :0=0+1 

1504 DATA127,15,21,51,19,1,2,0 2010 IFUsQANDBI< >1 THENGOSUB3BOO 

1506 DATAO,64,128,200,204, 148,240 ,254 2020 IFX>9THENX=X- 128: GBEUBZ300 

1508 DATAO,2,1,19,51,21,15,127 Er an 


ONXGSDTO2050, 2100 ,2080,,2100,,2070,2100 ,2080, 2100 
ZZu=40: B=40: C=4 1 ı D=-40: E=- 39: 60702100 

ZZm1: A=48: Bm 1, C0=—1 1 De2ı E=2: GDT02100 

222401 B=-40 52-39, D=49  E=41: G0OT02Z100 

ZZ==- 1, A=644ı Bar Ca; De= 1 E=-1 1: BOTGZ100 


IFPEEK (Z+D) < >SZORPEEK (Z+E) < >32THEN4000LELSEZ=Z+ZZ 
POKEZ+B,324 POKEZ+C „32 

POKEZ-1024, 121 POKEZ-1023,12 

POKEZ ‚Ar POKEZ+1 „A+l 
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2130 SDUND3, 200,2 .| 2310 IFA=&40RA=55 THENPOKEZ „54: POKEZ+1,65 
2140 IFA=&4 THENA=55: 507021970 2320 IFA=&B0RA=7OTHENPOKEZ ‚69: POKEZ+1,69 
2150 IFA=A8THENA=70, GOTO2190 2330 IFAX&BANDZZ=-405THENZ2400 

2160 IFAm=&a& THENA=d4 1 GOTGZ190 2340 IFAC6BANDZZ=-1 THEN2435 

“170 IFA=7OTHENA®#&S: GOTOZ17O 2350 IFASSBANDZZ=40 THENZ2450 

2190 IFO=20ANDZ 2X >ÖTHEN: G=0: 50702100 | 2360 IFA>&AT7ANDZZ=-40 THEN2490 

2195 IFZZ=OTHENdTO 2370 IFA>GSTANDZZEITHENZ2520 

2200 GOTO20600 2380 IFA>67ANDZZE4OTHENZSSO 

2298 REM RAKETE 2400 FORS=Z-40T0Z-B00STEP-40 


2300 SOUNDS, 100,8 


2405 IFPEEK (5) <>32THENP=S+40: BOSUB3500s RETURN 
2410 POKES,95: IFS=2-40THENPOKES ‚32: ELSEPOKES+40,32 
2415 NEXTSPFOKES+40 ,32: RETURN 

2435 FORS=Z- -1 TDZ-40STEP-1 

2440 IFPEEK (8) < >32THENP=S+1 : GOSUBZS500: RETURN 

2445 POKEB,94ı IFö=Z- ZITEENEUKEBSSAUELSEREHE SL, 32 
2450 NEXTIPOKES+1, 324 RETURN 

2460 FORS=Z+40T02+800STEPAO 

2465 IFPEEK (5)< >32 THENP=8-40: GOSUBSS00: RETURN 

2470 POKES,9%ı IFS=2+40THENPOKES „32: ELSEFOKES-40, 32 
2475 NEXT: POKES-40, 32: RETURN 

2450 REM 

24909 FORS=2-39T0Z-BOOSTEP-40 

2495 IFPEEK (5) < >32 THENP=S5+40: BUSUB3S003 RETURN 

2500 POKES, 75: IFS=Z-37THENPOKES ‚32: ELSEFGKES+40,32 
2510 NEXTıPOKES+40 ‚324 RETURN 

2520 FORS=7+2TUZ+3B 

2525 IFPEEK (5) < >32THENP=S-1: EDSUB3500: RETURN 

2530 POKES, 94: IFS=2+2THENPOKES ‚32: ELSEPOKES-1,32 
2535 NEXT: POKES-1,32: RETURN 

2550 FORS=2+41 TOZ+BOOSTEP+40 

2555 IFPEEK (5) <>32THENP=S-40: BOSUB35S00: RETURN 

2560 POKES, 95: IFS=Z+41 THENFOKES, 32: ELSEPOKES-40, 32 
2565 NEXT: POKES-40 ,32: RETURN 

3498 REM TREFFER j ä = 

3500 IFPEEK (5) =720RPEEK (8) =S5SDRPEEK (5) =B6 THENSS10: ELSEPOKEP „32: RETURN 

3510 IFPEEK (P) =940RPEEK (P) =95THENPOKEP „32 

3540 SOUND3,800,22 

3550 FOR T=87T087 

3560 POKE 5, Ts FORI=1TO20:NEXTI,T 

3570 POKES,S2 

3580 PU=PU+10r PA=PA+101r IFPA>LOOOTHENPA=0: = HU=HL+1 3 GDSUB13000 

3590 CHAR,13,1,""3 PRINTUSING"TH4##" PU 

3600 U=O3 RETURN 

3778 REM MONSTER 

3800 MO=INT (RND (1)3#200+1Z-120)) 

3810 IFPEEK MO) < >32THENZBOO 

3820 POKEMO-1024,50: POKEMO, INT {RND (1) #2+85) 

3850 U=1ıRETURN 

3998 REM KOLLISION 

4000 IFPEEK (Z+D) =F2DRPEEK (2+E) =92THENRI=1: POKE3792, 32: SOUNDI, 800 „20: GOTD2000 
4010 IFPEEK (Z+D}=F4ANDRI=OTHENBI=BI-13G60T05000 
4020 IFPEEK (Z+D) =?7ANDRI=1 THENBI=BI+1:B0T05000 
4030 IFPEEK (Z+D) =96ANDRI=1THENBI=BI-1:80T05000 
4040 IFPEEK tZ+D) =77ANDRI=OTHENBI=BI+1:GOTO5000 
4050 IFPEEK (Z+E) =93ANDRI=1THENS150 

2060 Z=Z+ZZ 
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4070 POKEZ+B,32: POKEZ+C,32 

4100 FORT=87T089: SOUNDS, T*10,12 
4110 POKEZ,T:3POKEZ+1,T 

4120 FOR I=1T030:NEXTI,T 

4130 POKEZ,32: POKEZ+1,32 

4135 FORT=1T0500:NEXT 

4140 HU=HU-1:BI=1:R1=0:G0T05000 
4998 REM BILDSTEUERUNG 

5000 IFHU=OTHEN10200 


5005 ZZ=0 

5030 ONBISOTDS040, 5050 ,5060 

5040 GOSUB10000: BUSLUBS300: 50T02000 
5050 GOSUB1 10001 B05U35300: SOTD2000 
5060 GOSUB12000: GOS5UB5300: 65702000 
5160 IFA=A4&sTHENA=&44 

5175 IFA=7OTHENA=&B 

5180 FOKEZ „32: POKEZ+1,32 


5190 POKEZ-1024 ,124 FDKEZ-1023, 12: POKEZ+ZZ „Ar POKEZ+ZZ+1 ,A+1 


5200 CHAR,„3,S, "WERRSUPER 1 ! am" 


5210 PRINTıPRINTıPRINT" EDU HAST Es" 


5220 PRINTIPRINT" GESCHAFT !!" 


5230 PRINTıFRINT" BEINE FUNKTE" 


5240 PRINT:ıPRINT" Kai" ; PU 
5250 GETAS: IFAR< >" "THENSZ2SO 
5250 RUN1700 


5300 SOUND1,881 „20: SDUNDZ2 „854,20 


5310 RETURN 
10000 REM BILDI 
10200 SCNELR 
10210 GOSUB1I000 


10230. FRINT tee HH" 


1062468 PRINT"* 


HH 


102509 PRINT'* BR en ne En nn 1 ne un Br Ku" 
10250 PRINT"+ + j PT Bi 
10270 PRINT"+ i ! ti n“" 
10280 FRINT"*+ HE up IB + 41" 
10390 PRINT"+ ß i PT BE | I," 
10400 PRINT". Ii+ ee a 
10410 PRINT"*+ TH a en Een Zu nn 
10420 PRINT" + ß ti u HH HH" 
10450 PRINT" + BEBEEE En; a nu u 
10440 PRINT"+ HRIZIELEES 4 0 
10450 PRINT"* BEE u un mu us mu mat GERT ! en 
10450 PRINT"*+ tt | j +" 
10470 PRINT"+ 44447 | +" 
10480 PRINT"* BE u a aa en +" 
19390 PRINT"+ Sr an zaen TR 
10500 PRINT"+ +: a nn ee 
10510 PRINT"+ Dr j I ++" 
10520 PRINT"#* + i Fr" 
10530 PRINT"+ MEER BE EEEER ER, Bun ur. Hall 44" 


10540 PRINT" HH HH HH 44H SH! 
10550 PRINT HH HH HEHE HEHE HH POIKE4071, 51 


106500 IF. HU=ÖTHEN10700 
10610 A=68 

10520 Z=39754: HA=HU 
10422 IFRI=1THENHA=HA-I 
10625 IFHA>4THENHA=4 
165430 FOR I=1TDH4A 


10540 POKEZ-1024 ,12:POKEZ-1023,12: FOKEZ „A: FOKEZ +1 „Ari 


10550 Z=Z+3:NEXT:ıZ=2-3 


10550 IFRI=1THENZ=3388: A=44: POKEZ-1024 , 12: POKEZ-1023, ISEFOREZ, Mr POKEZ+1 , Ar 


105870 RETURN & 

10700 CHAR,S, 10 ‚"IGAME DVERm" 
10710 GETAS: IFAS<>" "THEN19710 
10720 RUN1900 
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11000 REMBILDZ 
11020 SCNELR | 

11040 GOSUB13000 

11070 PRINT" HH HH EEE 
11080 PRINT HH HH ee 





11090 PRINT" 4 HH Ha oe I +8 tn 
11100 PRINT" we_eH4H) | i# + 4" 
11110 PRINT" Be i ie +” 
11120 PRINT" 4 14 _# En Zu 
11130 PRINT" Et a BEE 
11140 PRINT"! 4#  T4- SH HA Id oe 
11150 PRINT" -H-H44.° BA N Q 44 ERE Ra Tr" 
11160 PRINT" I4W 4 ms Spree ar 4 
11170 PRINT"Ie | T+# BRREET | 44 
11180 PRINT". | dt ta ' _.t" 
11190 PRINT’ H# Mi 444-4 441 | Fe 
411200 PRINT"4FT Äh ie Ess 
11210 PRINT" H4# _ 144 mE SENUnnE un 
11220 PRINT"-Ie Be HH DH 
11230 PRINT"i# a EBENE Zee eg 
11240 PRINT". # HR O4 y" 
11250 PRINTUHHHHH- LH FOtikis i u" 
11250 PRINT" HH: nun I H_® y" 
11270 PRINT" 44448 a EIER Sc UEHERTEE Te 


11280 PRINT > BET SERHHERRRORETEEREEREEN es 

311290 PRINT HH HH HH HH HH HH POKE4071,91 
11400 IFRI=1 THENZ=3908: A>64: GDT011470 

11410 27-3353: A=659 

11420 FOKEZ-1024,, 12: POKEZ-1023, 12: POKEZ „Ar POKEZ+1 ,A+1 

114306 GOSUB13100 

115060 RETURN 

12600 REM BILDS 

12030 SCNELR 

12040 GBOSUB13000 


12070 PRINT HH HH HH HH 
12080 PRINT" HH HH HH 
12090 PRINT" HH HH HH + m" 
12100 PRINT" —AH-Ha HH ei i Be 
12110 PRINT"-+4s» Baer et i j +" 
12120 PRINT"-4# ER u i IHM DER 
12130 PRINT"4-4-.$ "ak IB SE 4 
12140 PRINT". 1 te Zen = 5 Zu Be ne I 
12150 PRINT"+H+u Id a# dt FH ah 
12150 FRINT"-{1s BER Ee e mh a un a m u u en) 
12170 PRINT"-- BR en; u un 2 1 0 22 PO u 
12180 PRINT"-+-;# 4 En; nn nz u 
12200 PRINT" HI # Die Ba Pete 
12216 FPRINT"+H--48 Ih“ i+:# KoS 2e 2." ZEUGBBRS 5 207 2 Zu Den 2 
12220 PRINT"444--+& ie 2 2 u BE BEZ = oo Ze nn" BE nn a 2. 
12230 PRINT" = =# IH 447 74 . u 
12240 PRINT" ne zu u BERN 4 i Den 
12250 PRINT" I 4-Ha oe. 2 44 
12250 PRINT" E44] i Ih en EL 
12270 PRINT". - 11-4 { en Hr 
12280 FRINT HH HH DSL ER | 
12290 PRINT" Ho > Adenau + 


12300 PRINT HH HH HB" POKE4071, 91 
12400 Z=3834: A=68 
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12410 
42560 
15000 
13010 
13020 
130509 
13100 
13120 
13130 
13140 
13150 


RETURN 
FORT=11T015 


NEXT: RETURN 





Die Grafikeigenschaften des 016/116 sind 


hervorstechend und werden soweit man 
sich mit dem Arbeiten auf dem Bildschirm 
zufrieden gibt voll vom Basic des 016/116 


| unterstützt. Doch als Besitzer eines Druk- 


kers möchte man natürlich seine grafi- 
schen Kunstwerke, mathematischen 
Funktionsgraphen oder wassich sonstauf 
dem Bildschirm befindet gerne aufs Pa- 
pier bannen. Hier bietet sich zunächst die 
Programmierung in Basic an, da eine 
Hardcopyroutine in Basic recht einfach 
und kurz zu bewerkstelligen ist, doch hat 
solch eine Routine einen entscheidenden 


I Nachteil: die Geschwindigkeit!!! 


Zeiten von einer halben Stunde sind dabei 


| keine Seltenheit. 


Es bleibt also keine andere Wahl, als auf 
Maschinensprache zurückzugreifen. Sie 
finden hier eine 216 Bytes lange Hardco- 
py-Routine für den 616/116 in Verbindung 
mit einem MPS801 oder einem kompati- 
blen Drucker (GP100VC, ete.). Mit Hilfe 
dieser Routine ist der Grafikbildschirm in 


| weniger als 3 Minuten vollständig ausge- 
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druckt. 
Leider wurde kein idealer Speicherraum 
für die Routine gefunden (die Benutzung 
des Kassetienpuffers hätte die Dataset- 
tenanwender von der Nutzung des Pro- 
10 
20 
30 


40 
0 


BRAPHICO,1 
REM MASCHINENCODE 


MO=INT (RND (13 #799+3192) 
IFPEEK (MO) < >32THEN13120 
POKEMD-1024 „50: POKEMO , INT (RND 1) #2+85) 


gramms ausgeschlossen; die 192 Bytes 

hinter dem Grafikspeicher werden beim 

Löschen des Grafikbildschirms jedesmal 

mit Nullen aufgefüllt), so daß nichts ande- 

res übrigbleibt, als weitere 200 Bytes vom 
ohnehin knappen Speicherraum des G16/ 

116 abzuschneiden. 

Gehen Sie beim Abtippen folgenderma- 

Ben vor: 

- Geben Sie das Listing ein, speichern 
Sie es ab und starten dann mit RUN. 
Datasettenanwender nehmen vorher 
folgende Änderungen vor: 

In der Zeile 260 ist die 08 durch 01 und 
in Zeile 320 die 8 durch 1 zu ersetzen. 

- Haben Sie beim Abtippen einen Fehler 
gemacht, meldet das Programm Ihnen 
dieses, ansonsten wird die Hardcopy- 
routine unter dem Namen ‘hardcopy.- 
code’ als reines Maschinenprogramm 
abgespeichert. Dazu priniet das Pro- 
gramm alle nötigen Anweisungen auf 
den Bildschirm; Sie brauchen nur 
noch, wenn der Cursor blinkt, auf die 
RETURN-Taste drücken. Dies geschieht 
viermal. 

Für eigene Anwendungen müssen Sie die 

Routine nun absolut nachladen und den 

benötigten Speicherraum schützen. Dies 

erledigen die beiden folgenden Zeilen die 
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für den CI6116 + MPS801 


(oder kompatibel) s. Listing 3 


POKEZ-1024, 12: POKEZ-1023, 12: POKEZ ‚Ar POKEZ+1 ,A+1 
GOSUB131004 RETURN 

CHAR, 12,0," 13 KHUEYCDBRAM BE" 
CHAR,S, 1, "ERPUNKTEIRI" = PRINTLISING"3HH44" 3 PU5 
PRINT"RERBBEICHELIKOFTERMNBI" S 2 RINTUSING"##"sHU:COLOR1 „1 










Sie an den ANFANG Ihres Programms sstel- 


len müssen: 
0 IFA=DTHENA=1:LOAD“HARDEOPY.CODE*,8,1 
1 GRAPHICZ:GRAPHICO,1:POKES1,32:POKESZ, 
23:POKES55,32:POKEB6,23:CLR 
Es versteht sich, daß Ihr Programm und 
die Hardcopyroutine sich auf derselben 
Disketie befinden müssen bzw, daß auf 
Band die Hardcopyroutine direkt hinter Ih- 
rem Programm sein muß. Gestarlei wird die 
Routine dann mit SY55928! 
Änderungshinweis: 
Bei manchen Hires-Bildern empfiehlt es 
sich, diese revers auszudrucken, da die 
Darsieliung auf dem Bildschirm nicht der 
auf Papier entspricht. Dies ist zum Beispiel 
bei dem Hires-Bild auf der Gommodore- 
Demo-Diskette der Fall (s. Demoaus- 
druck). Diese Möglichkeit ist optimal in 
der Routine eingebaut. Wünschen Sie also 
eine Hardcopyroutine, die das Bild vor 
dem Ausdruck invertiert, müssen Sie ar 
dem Listing vor dem Starten folgende Än- 
derungen vornehmen: 
In Zeile 115 sind das 11. und 12. Datum 
(...,234,234,...) zu ändern in 73,127. 
Entsprechend muß die Prüfsummenab- 
frage in Zeile 190 geändert werden: der 
Zahlenwert von 23100 muß geändert 
werden in 22832. 


REM HARBEGPY-ROUTINE FUER DEN COMMODORE 16/1i& IN VERBINDUNG MIT EINEM 
REM MPS-S01 ODER KAMPATIBELN DRUCKER 
REM WRITTEN 1985 BY WALDEMAR RARZ 


V/ät 


programme 


110 DATA169,127,133,172,169,4,133,174,169,0,133,171,32,172,255,162,127,32 
111 DATA201,255,159,13,32,210,255,169,8,32,210,255,169,192,133,2,169,30, 13% 
112 DATAZ,169,0,133,4,169,32,133,5,169,28,133,8,169,7,133,6,169,40,133,7 
113 DATA164,68,192,7,240,20,162,7,177,2,10,126,51,3,202,16,249,200,192,8,208 
114 DATA240,165,6,240,18,160,0,162,7,177,4,10,126,51,3,202,16, 249,200, 196 
115 DATA6,208,240,162,7,189,51,3,56,106,234,234,164,8,208,2,41,143,32,210 
116 DATAZS5,202,16,237,24,169,8,101,2,133,2,144,2,230,3,169,8,24,101,4,133 
117 DATA4,144,2,230,5,198,7,208,165,169,13,32,210,255,198,8,208,7,169,3,133 
118 DATA&,76,94,23,16,18,169,15,32,210,255,169,13,32,210,255, 32,204 ,255,169 
119 DATA127,76,195,255,198,6,48,3,76,94,23,165,2,133,4,165,3,133,5,56,165 
120 DATA2,233,64,1335,2,165,3,233,1,133,3,76,90,23 

170 SU=0sRESTORE 

180 FORI=5928T06143: READA: POKEI ‚Az SU=SU+A: NEXT 

170 IFSU< >23100THENPRINT" FEHLER IN DATAS !!!": STOP 

200 PRINT" OK! MASCHINENPROBRAMM EINGBELESEN! " 

210 PRINT:PRINT"JETZT MUSS ES NUR NOCH ABGESPEICHERT" 

220 PRINT"WERDEN. DRUECKEN SIE HIERZU VIERMAL DIE" 

230 PRINT"KRETURNM-TASTE: " 

2406 PRINTıPRINT"MONITOR" 

250 PRINTIPRINTIAPRINTIPRINTSPRINT i 

260 PRINT"S"CHR$ (34) "HARDCOPY. CODE "CHR$ (34) " ,098,1728, 1800" 

270 PRINTIPRINTIPRINT"X" 

280 PRINTIPRINT"SOTO300" 

290 PRINT "Elia" END 

300 GRAPHICO,1 

310 PRINT"DAS PROGRAMM KANN JEDERZEIT MIT" 

320 PRINT"gLOAD"CHRS (34) "HARDLOPY. CODE"CHRS (34) " „8, 10" 

330 PRINT"NACHSBELADEN UND DANN MIT" 

340 PRINT"ISYS 5928 

350 PRINT"GESTARTET WERDEN !" 


Durch eine Zeitverschiebung ist Helmut 
ins Jahr 1000 v. Chr. zurückversetzt wor- 
den. Er muß nun dureh das Einsammein 
von Zeitschwertern (5 Stück pro Epoche} 
versuchen, wieder in die Gegenwart zu 
kommen. Insgesamt gibt es 8 Epochen 
und mitC 128 kann man in die Zukunft ge- 


langen. Aber natürlich ist das Ganze nicht 
so einfach. Ein Diener des myhenischen 
Kaisers ist Helmut ständig auf den Fersen 
und versucht ihn zu erreichen. 

Starten können Sie das Spiel mit der 
SPACE-Taste und steuern mit dem Joy- 
stick. Die Puste von Helmut nimmt durch 
die Aufnahme eines Schwertes zu. Zur 
Aufnahme eines Schwertes müssen. Sie 
auf dem Schwert stehen und den Feuer- 
knopf drücken. Auf diese Weise können 
auch Steine zerschlagen werden. Der Die- 
ner des Kaisers kann nichi bekämpft wer- 


den. ER Mensch Neimut wie kommen wir hier bloß wieder weg? 
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Oo REMIS EN ERR 70 VOLB:COLOR4,1:COLORO,1:COLOR1,2 
REM*+ ioO0 POKES&A,47:CLR 
=20REM=® HELMUT 110 Y=-452760 
40 REM# BY RäLrF ADLING 120 FOKEV+18,FEEEK (V+18) ANDZSI 
50 REM# LINGENER STR.& 150 FOKEV+18 ,PEEK (V+19) ANDSORSB 
ö0 REM+ 457& BERGE 
70 REM# 
BO REM HN RR ET ER EN 

















E BE Zu Zu Ze zu. 


140 RESTORE880: FORT=832T0849: READA: FOKET ‚A: FR=FR+A:NEXTT 

150 SYS932 

160 FORT=17800T013000: READA= IFA>-1THENFOKET „AZNEXT 

170 B=3301:7=1:X=1000: T=0 

186 G6T0550:K=53321:B=33501 

170 GOSUBAA0: ECOLORI „F2E=500:CHAR1 51,1, "PUSTE: ":FRINTE:K=3321:B=33501 
Z00 REM 

210 REM MAINROUTINE 

220 REM 

230 CHAR1,30,1,"LEVEL: ":FRINTZSCHAR1,16,1, 2812) 

240 IFPEEK (B+40) =32ANDFEEK (B+40) A098THEND=40: SODUNDi,1000-B/4,5 


















250 CHAR1,6,1,":":PRINTUSING"##4##"3E 360 POKEK,71 

240 IFT>4THEN1170 370 IFIOY (1) =-STHENC=CH 

270 FOKEK,32 380 IFJOY (13=7THENC=C-1 

280 IFK-B>40THENL=-40:GOT0330 390 IFJDY (1)=12BTHENGDSUBA90: E=E-25 
290 IFK-B<-40THENL=40: GOTOS30 400 IFJOY (1)=1THEND=-80: E=E-5 

300 IFK>BTHENL=-. 5: G0T0330 410 FOKEB,32 

310 IFK<BTHENL=.5 420 B=B+C: IFPEEK (B) =32THENPOKEB, 44: BDTD440 
320 IFB=K+LTHEN1110 . [4306 8=B-C: POKEB, 64 

330 IFPEEK (K+L} >4000THEN340 440 C=0: E=E-1: IFE<OTHEN1140 

340 IFFEEK (K+L) =320R6STHENK=K+L: GOTO360 | 450 REM 

350 K=K-L 450 GOTO240 






















470 SDUND1 ‚800,10: SDUND2, 770,4: SDUND1 „854,5: POKEB, 32:G05L1B480: E=E+400-27#10: RETUR 


480 N=INT {RND (1)*17)+52M=INT (RND (1) #35) +13 CHAR1 ,M,N," "RETURN 

490 IFPEEK (B+40) =70THENBOSUB470: T=T+1 

.500 IFB<3YBOTHENFOKEB+40 „32: SOUNDS, 1000,5: SDUNDS, 444,5 

510 RETURN 

520 REM 

530 REM INTRD 

540 REM 

SS50 GDSUB1940: COLOR ,8,7 

560 CHAR1,3,4," EI ELEN 

570 CHAR1,3,5,": 4% L 
[8 


zum 
F 


un: j un 


we 


4, 
\ L 1 ın 
D 


Fr 
mo 


580 CHAR1,3,6," "no AAN u . EU ER ua 
SF0 CHAR1,3,7,". h je a a ,a 
600 CHAR1,3,8," " WEL KLANG ı LUıL en 


640 COLORI,3,72CHAR1,8,12,"—- BY COLOSSUS-SOFT"SCHAR1,12,14,"1 9 8 5" 

620 CHAR1,14, 18, "1" 2CHAR1 „14,19, " 78#" :CHAR1,14,20,"f_" 

&30 Z$(1)="1000 V.CHR."2278(2)="500 V.CHR."22$(3)="44 VCHR. "228(4)="400 N.CHR." 
640 ZE(5)="800 N.CHR. "378 (6)="1750 N.CHR. "2278 (7)="1940 N.CHR. "2278 (8)="1985 N.CHR 


650 REM 

640 REM LIED 

&70 REM 

6830 DATA1,881,10,2,0,0,1,834,20,2,0,0,1,810,10,2,B81, 10 

670 DATA1,796, 20,2,834, 20, 1,„768,10, >, B10, 10,1, 739 »20,2,796, 20,1,768,10,2,768,10 
700 DATAL 796.,5,2, 739, 10,1, 758, 5, 1 ‚729, 5,2, 644, 10,1,1022,5 

710 DATA1,796,10,2,739,10, 1 „834,20, 2, 796, 20,1,854, 10, 2,810,10 

720 DATA1,834,20,2 ‚796,20, 1,810,10,2,768,10,1,796,30,2,739,30,1,768 ,20,2,721,20 
730 DATA1,881,10,2,0,0,1, 234, 20,2, o, 0,1, 810, 10, 2, 881, 10 

DATA1,796,20,2,834, 20, 1, 768, 10,2, 810, 10,1,739,20,2,776,20,1,768,10,2,768,10 
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7530 DATA1,796,5,2,739,10,1,768,5,1,739,5,2,644,10,1,1022,5 

760 DATA1,796,10,2,739,10,1,834,20,2,796,20,1,854,10,2,810,10 

770 DATA1,834,20,2,798,20.1, 810,10,2,788.10.1. 796,40,2,739.40,1, 768,40,2,721,40 
780 RESTORE&BO: FORLU=1T034: READD, E,F,8,H,1rSOUNDD,E „E:SOUNDG,H,T 

790 NEXT= SOUND ‚796,110: SOLND2,881,110 

800 IFR=9OTHEN19O 


810 GETA$: IFA$=" "THEN1410 

B20 G0TO810 

8350 REM 

B40 REM DATAS FUER ZEICHENSATZ 

850 REM 

B&0 DATA162,0,189,0,208,157,0,48,189,0,209,157,0,49,202, 208,241 ,96 

870 DATAB,124,12,10,8,20,34,34 970 DATAO,31,31,31,0,248,248,248 

BBO DATAZSS,66,36,24,24,36,66,255 1000 DATAZ,S3,1,1,15,31,55,55 

890 DATAZS5,255,195,195,195,195,255,255 1010 DATASS,51,51,51,55,7,6,6 

700 DATA&O,66,185,161,151,185,66,60 1020 DATA12,12,24,24,24,24,24,56 

910 DATA2B.28, 2,63, 125, 189, 125, 6 1030 DATA192,192,128,128,240,240,240,240 
920 DATA61,60,36 „36,36, ‚36, 36, 56 1040 DATA240,208,216,204,235,224,96,96 
930 DATA16,16,16,16,16, 124, 16, 1050 DATA48,48,24,24,24,724,24,28 

40 DaTase See ee ete 1060 DATAO,0,0,0,254,0,0,0 

950 DATAO,0,0,0,8,8,141,255 1070 DATA31,34,68,248,31,34,68,248 

960 DATA255,195,195,60,60,195,195,255 1080 DATA248,66,33,31,248,68,34,31 

9770 DATA146,146,146,1436,146,146,146,14& 1090 DATAO,0,183,149,183,145,183,0 

9780 DATA255,0,0,255,0,0,255,0 1100 DATA-1 


1110 FORI=8SOTD1O0STEF-2:50UND1 ‚1,1: POKER, 70: COLORO,Z, INT {RNDU1) #7): NEXT 

1120 GBOSUR1270 

1130 GOTOFO 
1140 FORI=BS0T0100STEP-5: SOUND! ,I,1:SOUND2,I,1:FOKER,72:COLORO, 3, INT{RND(1}87) EN 
EXT ö 

1150 GOSUR1270O 


1150 GOTOSO 1220 IFZ=STHENI 790 
1170 T=0; Z=7+1 1230 IFZ=4THEN1B40 
11806 PU=FU+ (2000+7#*100) -BD: IFFUE ÖOTHENFU=6 1240 IFZ=7THEN15S0 
1170 R=90: IFZ=7THENI&F0 1250 IFZ=8THEN1480 
1200 IFZ=3THEN1590 1250 IFZ=FTHENGOSUB1270: G6OT11350 


1210 IFZ=4THEN1BSO 


1270 SENBER:LOLDESSTSCHART GO me ee ae ee " 
1280 CHARL,O,1,"7 7 7 7 m nn nn 1 ----- +. u 

1270 COLORI „8,5: CHAR1,10,10,"WIR SCHREIBEN": CHAR1,13,12,"DAS JAHR" 
1300 IFZ=FTHENRETURN 

1310 CHAR1,14,15," "2 PRINTZE(Z) 

1320 CHAR1,18,10,"IE":CHAR1,10,18,"ALS HELMUT STARB" :CHAR1,14,20," |" 
1330 FORU=1T02000: NEXT 

1340 RETURN 
"41350 CHAR1,13,14,"":2FRINT"19885" 

1360 CHAR1,10,1&,CHR$ (130) sPRINTHELMUT IST WIEDER Datttt tr" 

1370 GDTOIO 


1330 REM 

1390 REM LARBYRINTHE 

1400 REM 

a GOSUB1F40: COLOR1,3,6: FORI= 171023: CHAR1 PR Dre GE. IR ER IR BE DREI ER U BG DR DR U U U DD U RER NE U RE ER ER HR ER I 
»NEXT 

1420 FOERI=4T037STEP4=CHAR1,1,15,"7"sCHAR1,I, 14,"-":NEXT 

1430 FORI=13T023:CHAR1,1,1, WLANSNEXTE CHAR1, a, 16, al En un 2 2 nn 2 re 223 


" 


1440 EOLOR1,8,7:CHAR1,1,12,"T_"2CHAR1,1,11," SM" 3 CHAR1,1,10, "7 

1450 5OTD190 

1460 GOSUB1940: COLOR1,10,3 

1470 FORI=17T023: CHAR1 1,1," 8" NEXT: COLOR 
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1,2 
1480 
14970 
1500 
1510 
1520 
1530 
1540 
1550 
1550 
1570 
1580 
1590 
1600 
1610 
1620 
1530 
1640 
1550 
i660 

.1670 
1580 
1690 
1700 
1710 
1720 
1730 
1740 
i750 
Be 
1750 
1770 
1780 
1790 


1800 
1810 


1820 
1830 


1840 
1850 
1850 
1870 
1990 
1870 
1700 
1710 
1729 
1930 
1940 
1950 
1740 
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CHAR1,10, 8," Hr CHAR1,10,17, "tt N Se 


FORI=STOI&:CHAR1 10, 1," #"eCHAR1,24,1,%#": NEXTECHAR1,10,18," harte 
FORI=BTD1i&:CHAR1,10, 1, "#"SCHAR1,24,1,"#":NEXTSEHAR1,10,18," "nme 
CHAR1,9,1F, "EEE Frerr ee re BCHARLZBIZOZTEITEI DI | BR 
COLOR1,6,5:FORI=9TO16:CHAR1,11, 1," WM": NEXT 

EITOE SE ORNERNEREEEESENERERRENET 

6070190 


BOSUB1940: COLDR1 „6: FORI=1T038: CHAR1, 1,22, ""sCHAR1,1,23,""":NEXT:COLOR1,8,7 
FORI=10T023: FORU=4T0348TEP10: CHAR1,U,1,"###" NEXT: NEXT 


FORU=3TOZSSTEP10: CHAR1,U,9," "LM ECHAR1,1+2,8, T'=NEXT 
GOTO190 
GOSUB1940:CHAR1, 1,23, "LILI LIES IST ERST SLLIITIE TS LEISTET" 
CHAR1,1,22, "LIIL UN ONE Nee Teer oe 
CHAR1,1,21," 7 a u 
CHAR1,1,20," — u RE ARE UNE LAT En 
FORI=1STD19:CHARI,1,1, WEL AGO AMERO AAL  AASSENEXT 
EHARI1,1,14,” BEEREREEERELETS SEEN z 
FORI=10TG13:CHAR1,1,1, ni ur ni “% ®2NEXT 
CHAR1,1,9," IESSSTFSEFFSSLIEN 

CHAR1 ,19,5, "ST 5CHAR1, 19,7," SB" :CHAR1,19,8, "7" 

BOTTHFO 

COLOR1 ,3,5:60OSUB1940:CHAR1 „1,23, "LI EI TEILE TILL IBFIETTGS ER LELLISELELIL" 


FORT=2070225 CHAR1 15, 1, "LLLLL"NEXTSFORI=17TO195CHART 13 I, "LILLLLLLLENEXT 
FORI=7TO16=CHAR1,11, 1, "WILL III ELLI ®sNEXTSCHAR1,12,17, "LTSCHAR1,22,17,"L" 
CHAR1,12,6, IE BE cars 13,5, "LLLLi II LI "SCHARL, 13,10, Se 


FORI=14T016: CHAR1,14, 1, "SNEXTICHARL,18,10,% 
COLOR1,8,0 
FORI=17 70222 CHAR1,3, 1," "= TCHAR1,33,1," 41" sNEXT:COLOR1,B,75CHAR1,4,16," 


CHAR1 34,16, "T_" 2 CHAR1 ,34, 15," @@"SCHAR1,4,15,",@#" Ss CHART ,4,14, 1" 
CHAR1,34,14, "1" 

BOTO1F0 

GOSUB1940: FORI=13T9232 CHAR1 „1, Ip "WILLLLEI LEI EST TI IS ETITEELITLL IE EI "ENE 


FORI=10TD12:CHARi ,1, 1, "LLLI Ba 1 LELLI LILIEL"=NEXT 
COLOR1,8,7: FORI=2TO34STEP8: CHAR1, 1,9, "PT" 2CHARL TB," W" ECHAR1, 1,7," 1"5NE 


EOTD190 
GOSUB1940: FORI=15T023=: CHAR1 ,1,1,"Li| Er, EEE. SUR. VERL. (Ei. JEEMENE 


G0TO190 

GDSUB1940: COLOR1,3,7 SR 
FORI=14T023:CHAR1,8, 1, "LI LLLI LES ETIETEI TITEL ER "ENEXT 

COLOR1 „&:CHAR1, 15,10," sttetteet" CHART, 17,9, "be ECHAR1,19,8, "0" 
CHAR1,9,13, "4 SCHILLER Pers" 

a ee ee aa LTE 
FORI=20T023:CHAR1,15,1,"  "sCHAR1,12,1I-5,"  "SCHAR1,25,1-3," a 
ECHAR1 ,15,21 ,CHR$ 130) :CHAR1,15 „21, "SISCHARL, 15,22," 5@"2CHAR1,15,23, "7° 
GOTO1F0 


SCNCLR:FORI=3T024: CHAR1 0,3," | "sCHAR1,39,J," | "NEXT 
EHAR1,OSZS"ELTTTTSTETEITSEESTERRIEETTT RITTER E ET" 
CHAR1,O,24, "I [I EI EEEITIETTETEISBIERI TER IT ELLI FEI"ERETURN 


Ahr 
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Polarisationsfilter zu günstigen Preisen 


Fortsetzung von Seite ] 


Die Handhabung dieser Filter ist denkbar 
einfach. Die im Lieferumfang enthaltenen 
Befestigungsklemmen werden auf dem 
oberen Teil des Bildschirms oder Monitors 
aufgeklebt. Anschließend werden die bei- 
den Halterstangen in den Filter gesteckt 
und diese vor den Schirm montiert. Sie 
werden sofort den Unterschied feststellen 
und Ihre Augen werden nicht mehr so 





Alle Bastelfreunde haben die Möglichkeit 





_ Die „DO IT YOURSELF“ Mailbox - 


stark beansprucht wie vorher. Die Redak- 
tion ist der Meinung, daß es sich bei die- 
sem Zubehörteil um ein sinnvolles und 
zugleich nützliches Gerät handelt, das ei- 
gentlich vor jedem Bildschirm oder Moni- 
tor montiert sein sollte. Dadurch dürfte die 
Diskussion um ein zu langes Arbeiten vor 
dem Monitor etwas entschärft werden. 
Auch der Homecomputeranwender sollte 
an seine Gesundheit denken und von dem 
Angebot Gebrauch machen. 





ter) 


die „Do it yourself“ Mailbox in Betrieb zu | 1 VC 1541 Floppy 


nehmen. Sie benötigen dazu: 


1 Commodore 64 {oder anderen Compu- 


1 Fischertechnik Computing Baukasten 
(Teilweise) 






1 Interface für GBM 64 (Black Box) 


1 Akustik-Koppler (V24) mit entspre- 
chenden Kabeln 


Die Fa. Spima Computer, Mannheim, hat 
das Programmpaket Mbox.11 speziell für 
den Commodore 64 zugeschnitten und 
bietet für einen Gesamtpreis von ca. 400,- 
DM den Fischertechnikbaukasten und das 
Interface an. 








. Immer mehr Anbieter drängen sich auf dem DFÜ-Sektor. Die Firma cDI stellt r nun gleich ehere Mo- 
dem's und Akkustikkoppler auf einmal vor. Interessantistauch, daß alle Geräte eine FTZNummerbesit- 
zen, was wohl noch immer nicht selbsiverständlich ist. 


Hitrans-Moderns sind als Akkustikkoppler 
ausgelegt. Dies bedeutet, daß keine elek- 
trische Verbindung zwischen Modem und 
Telefonnetz hergestellt werden muß. Der 
Telefenhörer wird einfach in die Gummi- 
muffen des Hitrans-Kopplers eingesteckt. 
Die Stromversorgung erfolgt je nach Mo- 
dell über Batterie, Netzteil oder sogar 


durch beide Möglichkeiten. 

Der uns zu Testzwecken zur Verfügung ge- 
stellte Koppler (Modell Nr. 05106) arbeitet 
wahlweise mit SV Block-Batterie oder ei- 


| nem 9V Gleichspannungsnetzteil. im Test 


machte sich jedoch die Batteriewechse- 
lung etwas negativ bemerkbar, da dazu 4 


fest angezogene Schrauben gelöst wer- 


den müssen, was bei einem relativ hohen 
Stromverbrauch öfter wiederholt werden 
muß. Nachdem wir unser Terminalpro- 
gramm (COM 64) auf Hafbtublex umge- 
schaltet, und die Schalter am Koppler in 
die richtige Stellung (grün/ein gelb/aus) 
gebracht hatten, lief die Datenübertra- 
gung sehr sicher ab. Umgebungsgeräu- 





sche schienen unserem Koppler nichts auszumachen, lediglich 
einige etwas schwach übertragene Mailboxen sorgten für einige 
- Übertragungsfehler. 


ist, werden immer die eingebauten Tasten betätigt. 
Neben diesen kleinen Schönheitsfehlern scheint die Firma CDI 
einige hervorragende Produkte entwickelt zu haben. - 


CDI Lieferprogramm 


KITRANS 300 P: 
(Professional) Übertragungsgeschwindigkeit 300 Baud, (30 Z/ 


Echosperre, Stromversorgung 220 V, Batterie, Accu-Betrieb 
oder Versorgung über den Schnittstellenstecker möglich. 
Farbe: beige, 

ZZF Nr. 18.13.2015.00 
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: Etwas problematisch verlief auch die Handhabung, denn legt 
man den Koppler flach auf einen Tisch, wie es eigentlich üblich | 


sec.), FDX, Originate/Answer automatische Freischaltung der | 


2 


report 


HITRANS 308 6: 

. (Consumer) Übertragungsgeschwindig- 
| keit 300 Baud, FDX, Originate/Answer, 
Stromversorgung über Schnittstellen- 
stecker, externes Netzteil 12 V, 40 mA oder 
über Blockbatterie. Farbe: schwarz, 
ZZF Nr. 18.13.2015.00 


KITRANS 1200: 

Übertragungsgeschwindigkeit Senden: 
1200 Baud, Empfangen: 1200 oder 75 
Baud umschaltbar 1200/1200 HDX-oder 


1200/75 FDX-Betrieb, Stromversorgung 
über Schnittstellenstecker, Netzteil 12 V, 
30 mA, Batterie oder Accu, ZZF Nr. 
18.13.2017.00 


HITRANS 75/1208: 

BTX-zugelassener Akustikkoppler, Sen- 
den: 75 Baud, Empfangen: 1200 Baud, 
V.24 Schnittstelle, optional DBT 03, 
Stromversorgung Netzteil 12 V, 30 mA, 
Batterie oder Accu, 

ZZF Nr. 18.13.2020.00 


HITRANS U: 

Universalkoppier 300 Baud FDX, Origina- 
te-Answer und 1200 Baud HDX umschalt- 
bar, Stromversorgung über den Schnitt- 


stellenstecker, Netzteil & 15 Volt, 
1600 mA, 

ZZF Nr. 18.13.2016.00 

HITRANS MUFF: 

300/1200 Baud Sendeteil (nur Senden 
möglich), 


ZZF Nr. 18.13.2018.00 





Erfreuliche Nachrichten für die über 
700.000 Commodore 64 User in der Bun- 
desrepublik Deutschland. Jeder Besitzer 
eines 0-64 kann durch den Erwerb eines 
Decodermoduls SD-64 zum Kreis der Bix- 
Teilnehmer gehören. Nach der Entwick- 
lung eines Btx-Decoders durch Gommo- 
dore gibt es bereits ein weiteres Modul, 
| das nach Angaben des Herstellers den 
bisherigen, weitaus teureren Geräten in 
Intelligenz und Funktion weit überlegen 
ist. Dadurch wird Btx zum Kommunika- 
tions-Medium für jedermann, denn schon 
mit wenigen Handgriffen ist Ihr Commo- 
dore 64 zum Abrufterminal für Bild- 
schirmtext umfunktioniert. Der Tronic- 
Verlag plant in Zusammenarbeit mit dem 
Hersteller des Moduls, Btx auch für die 
| Zeitschriftenleser sinnvoll einzusetzen. 
| Dabei gehen die Überlegungen dahin, daß 
bereits ab Anfang des Jahres 1986 ein 
„Telesoft-Vertrieb“ im Tronic-Verlag einge- 
richtet wird. Hier soll der Kunde die Mög- 
lichkeit erhalten, qualitativ hochwertige 
Software über Telefon abzurufen. Dabei 
liegen die Vorteile für den Verbraucher in 
der Tatsache, daß er schnell, ohne Besteli- 
; undLieferzeiten und günstig an gute Soft- 
| ware gelangt. Die Telefongebühren für 
| den Bix-Service sind sehr gering, da im 
gesamten Bundesgebiet zum Nah-Tarifte- 
iefoniert werden kann. Somit isi Bix ei- 
gentlich nicht nur für die professionelle 
Nutzung gedachi, sondern kann von je- 
dermann genutzt werden. 
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Nähere Einzelheiten zum „Telesoft-Ver- 
trieb“ und das neuentwickelte Modul er- 
halten Sie bei der Programmierabteilung 





unseres Hauses bzw. in einer unserer 
nächsten Ausgaben. 





Siemens beurteilt Entwicklung des Bix-Dienstes positiv 





Mit den ersten Prognosen zum seinerzeit 
erst geplanten und in der Erprobungspha- 
se befindlichen Bildschirmtextdienst (Bix) 
wurden diesem neuen Kommunikations- 
medium enorme Vorschußlorbeeren zuer- 
kannt. Diese Schätzungen basierten auf 
der Annahme, daß über Btx die elektroni- 
sche Kommunikation auf breiter Basis 
Einzug in den privaten Haushalt finden 
würde. Darüberhinaus setzten diese Pro- 
gnosen einen termingerechten Start des 
Bix-Systems sowie das gleichzeitige Vor- 
handensein der notwendigen Endgeräte- 
techniken voraus. Beides wurde erst mit 
deutlicher Verzögerung realisiert. 


Die heute im Btx-Dienstangebotene Stati- 
stik zeigt über den Zeitraum des Dienstes 
von seinem Beginn an betrachtetfolgende 
Entwicklung: Der Start des Dienstes im 
August 1984 war gekennzeichnet durch 


eine hohe Beleiligung von Informa- | 


tionsanbietern, die von Anfang an mitsehr 
umfangreichem und kompiexem Informa- 
tionsangebot vertreten waren. Die Zahl 
der Informationsanbieter hat sich in nur 
einem Jahr um über ein Viertel (27 %) 
kontinuierlich erhöht. Die angebotenen In- 
formationsseiten nahmen in der gleichen 
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Zeit auf fast das Doppelte zu. Das zeigt, 
daß die Informationsanbieter heute ihr 
komplexes Angebot intensiv ausgebaut, 
strukturiert und  bedienerfreundlich 


gegliedert haben. Trotz der technischen 
Anlaufprobleme hat sich die Zahl der Bix- 
Teilnehmer von 14000 um rund 20000 
auf 34000 erhöht. 











4 1C,82.17.5u 2,85 4,55 6.85 14.10.55 





Entwicklung der Etx-Anschlüsse 








20 GETAS: IFA$=""THENZO 





programme_ 


Kahen $ie schon einmal als Signalwärter Ihren 
Dienst versehen? Jeder VC-20 Besitzer 
kommt bei diesem Programm in den Ge- 
nuß, den Zugverkehr sicher zu steuern. Es 
klingt zwar sehr einfach, ist es aber nicht! 


Der Zug fährt in der linken oberen Bild- 
schirmhälfte los und Sie müssen nun mit 
Hilfe der Tastatur (Zahlen 1 - 6) den Zug 
steuern und an den entsprechenden Stel- 
len die Weichen richtig stellen. Insgesamt 
gibtes6 Weichen die an den entsprechen- 
den Punkten durch Druck auf die richtige 
Zahlentaste um eine Drehrichtung verän- 
dert werden können. 


Die Lok erhöht mit zunehmender Spiel- 
dauer automatisch die Geschwindigkeit. 
Die Spielbeschreibung innerhalb der Pro- 
grammzeilen ist in englicher Sprache, da 
der Autor des Programmes aus Amerika 
stammt, 


Wir hoffen, Sie haben trotzdem vie! Spaß 
mit dem Programm und es gelingt Ih- 
nen, den Zug so zu steuern, daß er 


Teil 1: 10 PRINT"LW”ZPRINTTAB (222) " INSTRUCTIONS Y/N ?% richt aus den Gleisen kommt. 


30 IFA$="Y'" THENGOSULBZ7O 
20 PRINT"L"TAB (224) "MGBMENT PLEASE" 


50 FORI=7158T07579: POKEI „PEEK (I+256500) = 


60 FOKESZ,28: PORES6 „28: ELR 
709 FORI=71659707263: READA: POKEI ‚A: NEXT 
BO FOKE36849 ‚255: POKE7678,1 


NEXT 


70 PRINTCHR&$ (147) 2FORI=1T040: PRINT"(I_OCOS "3:NEXT 
100 Y=128: W=565878: X=36876: M=7701:FORI=1T0243: T (VI =PEEK (M+1) 


110 V=V+1: IFV=SZTHENV=O 


120 M=M+1: POKEM, 8: POKEM+30720,0: FOKEM-1,T{V) 


4130 A=sA+1: IFA=10RA>7THENA=2 
140 V=Y+rI: IFY>2S4THENY=O 


150 POKEW, 15: PDKEX „V: FORF=1T010: NEXT: POKEW ,O: POKEX „O 


140 POKEM-1+30720,A:NEXT 


170 PRINT" iM PRESS PLAY ON TAFE":WAIT37151,126,126 

180 PRINT" DK. LOADING PT.2 O3": :POKE&31,131:POKEIIB,1 
190 END 

260 DATAO,0,0,36,255,35,255,36 
200 DATAO,0,0,0,0,0,0,0 ee 
ic oe, u 280 DATA248,252,2264,255,255,36,255,3& 
BIO DAAD 0 De ee 290 DATA31,63,71,255,255,36,255,36 
ee 300 DATA24,60,126,102,102,126,126,126 
»20,20,20,18,7,4,3 310 DATA126,1726,126,102,102,126,60,24 
250 DATA20,62,20,20,20,20,52,20 
520 PRINT"L"TAB (68) "YOU MUST CONTROL THE POINTS SD THAT THE ENGINES DO NOT RUN 
DUT®: De | 

330 PRINT"OF TRACK. ":PRINT:PRINT" YOU START WITH ONE ENGINE AND POINTS ARE AWA 
RDED "; 


540 PRINT"FOR THE TIME YOU CAN KEEP THE LOCOS FROM URASHING. * 
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software-service 








TOP-HIT Angebat Nr. 1 


Spielprogramme 
Karate / Fireilegion / Memory / Spage-Age / Pla- 
net of Beath / 

COM PCK1 (Kass.] 
COM PCDI (Disk.} 


TOP-HIT Angebot Nr. 2 


Spielpragramme 
Galaxy / Vampir / The Maze Graze Game / Tank- 
Buell / Super-Breakout / 
COM PCK2 (Kass) 
COM PCD2 (Disk) 


 TOP-HIT Angehat Nr. 3 
(aur Disketten) 


- 35,-—- DM 
40,-— DM 


35,-- DM 
40,-—- DM 


Anwendengsprogramme 
er! / Supermoni 64 / Micro-Tools / Disk 
[1] 


Bestell-Nr.: COM PCD 3 40,-— BM 


E-64-Bonus-Kassette (Top 5) 


Firebird / Projekt / Monster Attack / High Noos / 
Roadpainter 


Bestell-Kr.: GPX 1/85 





EM 35,- 
Super-Disk 1-5 64 (Top 5) 


Firebird / Projekt / Menster Attack / High Moon / 
Resdpaister | 


Bestell-Nr: CPD 2/85 





DM 48,- 
Suner-Disk-E 54 {Top 10) 


kiyh Musis / Grand Prix / Brieftashe / Gadelon / 
Jet-Pac / Star Batile / Painter / Skeet /Spiders / 
Space Gomets 


Besteil-Nr.: GPD 1/85 





IM 75,- 


Nachdem unsere 10 TOP-HIT- 
Angebote beilhnenso hervor- 
ragenden Zuspruch gefunden 
haben, bieten wir Ihnen er- 
neutdie Möglichkeit, die Rest- 
bestände dieser Aktion zu er- 
werben. 

Jeder der noch nicht von un- 
serem Angebot Gebrauch ge- 
machthat, bekommitalso eine 
zweite (Bestell-) Chance. 
Dieses Angebot gilt nur noch 
solange der Vorrat reicht. 





TGP-HIT Angehot Nr. 4 


Spielprogramme - 
Fiowers I / Fiowers II / Geo-Zaxxon / Balloon- 
Shoot / Stuntman 


Bestel-Nr.: COM PYRT 30,-—- DM 


TEP-HIT Angebot Nr. 5 


Spielpregramme 
Eiphrecher / Jupiter Rescue / Hospital / Dange- 
raus Planet / Dina-Fggs 


Bestell-Nr: GO PUKZ 





30,-- BM 


VE-20-Borus-Kassette (Top iD) 


Düsi / Race ob /Gagy/ Matron / Obst /Berrasen- 
de Malscher / Powerpack / Buflato Bill / Prost / 
fressman 


Besiell-Nr.: VPX 1/85 





DM 40,-- 


CGEMMODORE 15 
TOP-HIT Angebot Nr. 6 


Spielprogramme 
$0S-Sehiffshruech / Schaiztaucher / Gar Race / 
Data-Maker / MERGE-Rouline 
Besiell-Nr.: COM POKt (Kass.) 
Bostell-Nr.: COM POEI {Disk.) 


TOP-HIT Angebot Nr. 7 


Spielprogramme ! 
Shaslin / Jumping Joe / Gity-Runner / OLD-Rou- 
fine / Zeichsniaormer 

Besiell-Nr.: COM POK2 (Kass.) 
Bestell-Nr.: GOM POC2 (Disk.) 


30,-- DM 
35,-- DM 


30,-- BM 
35,-- DM 





TOP-HIT Angebat Nr. & 


Spielprogramme 

9-Bert / Tower / Inka-Sogra* / Duell / Ailien- 
Hunter 

Besteli-Nr.: COM PSKI {Kass.) 
Besteil-Nr.: COM PS {Disk.) 
* nur auf Kassette lauffähig 





30,-- DM 
45,-— DM 


TOP-HIT Angehot Kr. 3 


Spielpregramme 
Gave-Runner /3 D-Lahyrinth / Gitylander / Eis / 
Demon Attack 

Besieli-Nr.: GEM FSK2 (Kass.) 
Bestell-Hr.: COM PSD2 (Disk) 


TOP-HiT Angebot Nr. 10 


Anwenderpregramme 
Super-File / Data-Wandler / Datenverwaltung Ä 
Tastaturbeiegung / REM-Killer / "Single-Disk- 
Backuy / *"Discchow 


Besteil-Nr.: GERR PSK3 [Kass.} 
Bestell-Nr.: COM P503 (Disk.} 
* nur auf Diskette lauffähig 





30,-- Di 
45,-- DM 


40,-- BM 
55,-- DM 





Der Tronic-Verlag bietet allen „Compute 
mit“ Lesern auch weiterhin die Möglich- 
keit, alle veröffentlichten Programme des 
Jahrgangs 1 zu bestellen. Geben Sie nur 
die Besteil-Nummer an und Sie erhalten 


innerhalb 
1 Woche 


die von Ihnen gewünschte Software zuge- 
sandt. Beachten Sie bitte, daß bei Bestel- 


lung per Telefon zusätzliche Kosten ent- 
stehen {Nachnahmegebühr bis zu 5,-- DM). 
Auslandslieferungen erfolgen nur gegen Vor- 
kasse, um die Empfänger vor zu hohen 
Postgebühren zu schützen. 





Heft 5/85 

Commodore 

Bestell-Nr. GOM © 1/1 16,- DM 
Bestell-Nr. GOM D 1/1 20,- DM 
Schneider ; 
Bestell-Nr. COM S 1/1 .16,- DM 
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Heft 6/85 

Commodere 

Besteil-Nr. COM E 2/1 16,- DM 
Bestell-Nr. COM G 2/1 20,- DM 
Schneider 

Besteil-Nr. EOM S 2/1 16,- DM 


Compuhe mit 


Heft 7/85 

Commodore : 

Bestell-Nr. COM CH 3/1 16,- DM 
Bestell-Nr. COM CD 3/1 20,- DM 
Schneider 

Besteli-Nr. COM SX 3/1 t6,- DM 
Bestell-Nr. GOM SD 3/1 39,- DM 
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software-service 





| Heft 8/B5 Het 9/85 Heft 10/85 
Commodore Gommetdore j Commodore 
Bestell-Nr, COM CK 4/1 16,- DM | Besiell-Nr. COM CK 5/1 16,- DM | Bestell-Nr. COM CK 6/1 16,- DM 
Bestell-Nr. GOM CD 4/1 20,- DM | Besieil-Nr, COM CD 5/i 20,- DM | Bestell-Nr. C0M ED 6/3 20,- DM 
Schneider Schneider Schneider 
Bestell-Nr. COM SK 4/1 18,- DM | Bestell-Nr. COM SK 1/1 16,- Did | Besteil-Nr. COM SK 6/1 16,- DM 
Bestell-Nr. GOM SD 4/1 39,- DM | Bestell-Nr. COM SD 1/1 39,- BM | Besteil-Nr. 60M SD 6/1 39,- DM 
Heft 11/85 Heft 12/85 Aus diesem Heft: 
Gommordore GCemmodore Commodore 
Bestell-Nr. GOM GK 7/1 16,- DM | Bestell-Nr. COM CK 8/1 16,- DM | Bestell-Nr. GOM CK !/2 15,- DM 
Bestetl-Nr. COM CD 7/1 20,- DM ; Bestell-Nr. COM ED 8/1 20,- DM | Bestell-Nr. GOM CD 1/2 20,- DM 
Schneider Sehneider Schneider 
Bestell-Nr. COM SK 7/1 15,- DM | Bestell-Nr. COM SK 8/1 16,- DM | Bestell-Nr. EDM SK 1/2 16,- DM 
Bestell-Nr. CGM SD 7/1 39,- DM | Bestell-Nr. COM SD 8/1 39,- DM | Bestell-Nr. EOM SD 1/2 39,- DM 














Programm Preis/ Preis/ Bestell-Nr. | Programm Preis/ Preis/ Bestell-Nr. 
Kassette Diskette Kassette Diskette 
Multigragh/All Rammer 11,-- BM 15,50 DM vn 
€ „66 Zykio/Meteorit 11,-— DM 19,56 DM v8 
tarten/Schloß Grusefstein 14,-- DM 19,50 DM v9 
Multi-Koy/S-Toal 64/ Fressman/ Dutlaw 14--IM  19500M W101 
Interrupt-Programme I6--DM  21,-- DM UC 2/95 Prast/Buftalo Bill 14,-- DM 19,59 DM yızı 
Spritehilfe/Diskloader/ - A Man/ uns y 14,-- DM 13,50 DM v22 
H ; 2 or rasende Malocher 
Ko /Asman/ An Dear/as Frankie goes 10 Pharao 14,-- DM 19,59 DM w32 
Data-Generator 15,-- DM 21,-- DM UC 3.2/85 Matron/Ohst 14,-- DM 19,50 DM v42 
Fast Load f0,-- DM UG 2/84 Race On/Cauy { 14,-- DM 19,50 DM ys2 
Diskmonitor/Zeichensatz 20,-- DM - UC 5/85 Nürhurg 3D/Düsi 14,-- DM 19,5D DM v2 
Reassembler/Maskengenerator  15,-- DM 20,-- IM u 6/85 Breaker/Expulsior 14,-- DM 19,50 DM Yr2 
Dei 64/Treikerpragramm Zykio/Geldsammier 11,50 DM - HG/V-1 
für 1526/MP$ 802 Decelevator 14,-- DM 18,-- DM UL 7/85 Star-Wars/Punktefresser 14,50 DM = HG/N-2 
Supertanedirectory/Renew/ Catch the Fish/Mister Jump 14.50 DM - KG/U-3 
Kontrellabtrage 15, OM B UE 8/85. Ghosts Eygs/Fex Hunt 14,50 0 - Ho/V-4 
Vides-Wiilities, Gollector/Break But 14,50 DM - HG/Y-5 
Mulüi-Basis 43, Büldesitor 17,-- DM 23,-- DM 6 9/85 9-Beri/Salvage Crew 16,59 DM = AG/V-6 
Better Basir/Autonumher/ Dog Figkt/Schwitzbad 15,50 DM - HE/V- id 
Hardcopy/Terminalprogramm 17,-- Dt 23,-- EM US 10/85 Sprites/Seace-Battle 13,-- DM 13,-- DM un 2785 
Reacier/Gonsentration/Datenhank 17,50 EM 23,50 DM HL/C-1 Srallk-Palater 10, DM = WW B/US 
Warlards/Gaverns of Death 14,58 GM 19,50 DM KE/G-2 WIG-Black 9,-- DM 7 UN 8/85 
Alien-Besirayer/Duell 24,56 DM 29.55 DM HE/C-3 Decelarator 9,-- DM = UV 7/85 
Ocean Same/Tennis 17,50 DM 23,50 DM HE/C-4 Joypaint 12,- BM E uw 8/85 
The Caves 17,50 DM 23,50 DM HC/C-5 Disassenikler, Oid-Pregramme 10,-- BM - 9/85 
Sardeter 17,50 DM 23,50 DM HC/C-6 Direstory/Farh-JHO 10,-- DM - UV 10/85 
U10/Sksteboard Sam 24,50 DM 29,50 DM HG/G-1-4 ; 
Mauern/Widerstand B,-- EM 15,-- DM Cat 
Space-Comets/Erdspalte/ ; 
Sprite-Data 15,-- DM 23,50 DM 651 Be Schneider 
Amtostart/Bestelischein/ = 
RAaadpainter 16,50 DM 23,50 DM- G6i 
Hardeopy/Space-Fighier/ 
Data-Generator 15,50 DM 19,50 DM 671 Autorennen 31,-- DM - uS 3/85 
Monster-Attack/Block- Universal-Datei V1 9,-- DM - US 4/85 
Painter/Epson-ÜDrucker 16,50 DM 23,50 DM 68 Computerschrift/’Symbal-Swap 10,-- DM - US 5/85 
Projekt/Batenbank 16,-- DM 23,50 DM cs Keyboard Fooikit/Farbidesadierung 11,-- DM - US 6.1/85 
Saiders/Tke Bagie 16,50 DM 23,50 DM c101 Aladin 9,-- DM - US 6,2/85 
High Noon/Skeet/ Painter/Box-Befehl 14,-- DM 24,-- DM US 7/85 
Grafik-Designer 17,50 DM 23,50 DM c 121 Maschinensprache-Monitor/ : 
Painter/Star-Baddie/Editor 17,50 DM 23,50 Di E22 Disk-Hilte $ 15,-- DM 25,-- DM US 8/85 
Wüstenrally/Jet-Pas/ Basis, Maschinen-Kit 12,-- DM 22,-- DM US 9/85 
Black Moore Gastle 17,59 DM - 23,50 DM 632 Backup/Directory/ 
Rrieftaube/Cadelon 19,50 DM 24,50 DM C42 Ellipse/Disk - 27,-- DM us 10/85 
Ritter Erik/Grand Prix Spritehilfe 19,50 BM 24,50 DM C52 Fallschirmepringer 9,-- DM - HC/SR-3 
Firebird/High Music 24,50 DM 29,50 DM C62 Geisterschloß 9,-- OHM - HC/5R-4 
Mosnsweeper/Scotti 24,50 DM 29,50 DM 672 Zeichendesigner 12,50 DM - 6/SR-5 
Mini Gar Race/lnterceptor 30 17,50 DM 26,50 DM HG/SR-6 
Secret Agent a 12,50 24,50 HL/SA-1-4 
Super-Hiner 14,-- DM - $A 42 
GPC-Bert 14,-- DOM - SR 52 
Gonan’s Gastle 15,50 DM - sh 62 
Bestellschein/’Glücky 8,50 DM 15,- DM vor Snider's Mace 16,58 - SA 72 
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_Programme 


' 350 FRINT:PRINT" IF YOU REACH 1000 POINTS YOU HAVE TRO ENGINES TO KEEF BOIN 
G. „ * 

360 PRINT'ERIERBBPRESS ANY KEY":POKEIFB,O:WAIT 198,1 

3706 PRINT"W"TARCA7IPREACH 1000 FOINTS AT THIS LEVEL AND YOU BOTD LEVEL 3 WIT 
4 

380 PRINT" THREE LOCOS. ® 

370 PRINT:PRINT" IF YOU CRASH GN THE SECOND DR THIRD LEVELS YOUR SCORE 18 ADDED 
400 PRINT" TO YODUR PREVIOUS 'LEVEL’S SCORE." 

410 FRINT:FRINT’EB USE KEYS 1 — 6 TO CONTROL THE FOINTS.*" 

420 PRINT"ERERBRBPRESS ANY KEY":FOKE198,0:WAIT1FB,1TRETURN 

Teil: 2 

i 607054 18 GOTO26& 

2 FORI=1T040: U=U+1: IFU>BTHENSOTO71 179 M=M+J: T=PEEK (M} sL=11: IFT=STHENZS 

3 IFI=WANDO=. THENFOKEZ „K:GOSUBZ1:0=1 28 IFT=3STHENN (9) =2 

4 IFGANDI-O>&THENPRINTJS: GOSLUBSZ 21 IFT=4THENN(SI=1 

5 POKEY,X:ıFORH=1T0OD-U 22 607024 

& NEXT=PFRINTFSU:FOKEY,. 23 M=M-J: F=SPEEK (HM) sL#=10: IFT=STHENZ& 

7 FORS=1TOF=2M=M(S) :U(SI=M: P=S#? 24 IFT=ZTHENN (5}=2 

3 GETZ$: IFZ$< "1 "ORZEF"S"THENIO 25 IFT=1THENN(S)=1 

7? POKEZ „N: G=ASC (Z#) -48: GOSUBFA 26 T{V)=T: IFT>6THEN74 

10 ONN(SI60T011,15,17,23 27 V=V+1: IFV=BRTHENV=. 

11 M=M+1: T=PEEK (M}ıL=8: IFT=&THENDG 28 FOKEM,„L:FOKEM+C,F=FOKEU (5) ,T(V) 

12 IFT=ZTHENN (5)=3 :POKELISI+C,1 2 

13 IFT=3THENN {S}=4 24 Mt5)=M 

14 601024 ]) 30 NEXT:NEXT 

15 M=M-1:T=PEEK (MM): L=7: IFT=&THEN2& 31 W=INT (RND (0) #6+14) sE=W-153 

15 IFT=4THENN (5)=4 32 PRINTFE"W FOINT "E" CHANGINS"= RETURN 


17 IFT=1THENN (5) =53 33 G=E:lI=.:0-., 


34 A=C(6,3) 


33 IFPEER tA-1) >70RPEEK (A+1) >70ORPEEK (A+J) >70RPEEK (A-9) >70ORFEEK (A) >7THENFOKEZ „.: RE 
TURN 


5& R=C16,4):R=h+l. IFG=SZORG=4 THENSB 

37 IFR>3STHENR=1 

538 IFR>&4THENR=1 

57_DNG GOSUBS1,43,52,43,52,53 

a0 PRINTLEFTS (Ks, EiB, IDSPEICEG, Zı)YEftılCiG,4)=R 
41 IFOTHENPOKEZ, K:RETURN 


42 FORKEZ,.: RETURN 46 YE="GEIRF BORERE " : RETURN 50 ONRGOTO44,47,48 
43 GCNRGOTD44,45,46,47,48,49 47 Y=" ERRISEGINIGE " : RETURN 51 ONRGOTO44,45,46 
44 Y3="GMBISAFNE " : RETURN 458 VYE=S"ENINIGLFIIEGS "RETURN 52 UNRGOT045,47,47 
45 YE="SKEBlFFFEIRG "= RETURN 47 YE="ERIEF CORE" : RETURN 53 ONRGOTO45,48,49 


4 PRINT"(" 2 CLR: M=0: T=0: C=30720: V=0: 5-0: 6G=0: R=0: A=0: Y=7856: U=0: B=0: B=0: Z=3687&: N 
=3020 - 

35 K=0: J=22: X=188: Y=36877: F$="g]":DIMG (8,4) ,Mt4) „U(4) „N (4) : FOKES68689 , 255: F=PEEK (7 
678) j 

54a FORI=1T068: READA,B,DEC{1,1)=AsC(1,29=B:C(1,3)=De:NEXT:K=B+F #2: POKEI6B79 ,KıkK=148 
57 Al$="F"rAt="A': Bt="BN: OH="C": Die" DD" E$="E"oKr=t’g" FORT=1 TOZZ: KSekHH "ES NEXT 
sg FRINT"L"= FDRA=3TD23STER&: FORI=1T019r IFA=S1STHENA=165 

57 FRINT"B"LEFTEIKF ,A)SPCCIIAISSSNEXTI „A 

60 FORA=4T021:FORI=1 T0O2ÖSTEP9: IFI=1FTHENI=7O 

#1 PRINTLEFTE (K$,A)TABCDIEFSNEXTI „AzFORI=OTOS: PRINTLEFTFCKF,10+1) TABt1)" "NEXT 
62 PRINTLEFTEF(KF, FI TABLLIASSPEC1BIBSLEFTS(KS, PTABCIDSLEFTEIKS, ZZI TABTLIDESPE 1 
BICH 

65 PRINTLEFT$ (K$, 18) TAB(1)ASLEFT$ (K#,4) SPC (LI) "WI "LEFTSCKS, LOISPC (BI "DISPC IH) HZ" 
&4 FRINTLEFTECKE,1TISPE(CBI TA SPC IP) "SU LEFTFIKEF „ZIP SPCELELLI" SE" FE 

65 FORI=1T106:6=1:R=INT (RND (O) #99 :C(1I,4)=R 
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|. 1018 


GOSUB 36: NEXT 
der+l:D=200:W=35 


FÜKE 35878, 15: G0T02 


IFFEEK {76771 =3STHEN?EB 
= GOITOS4 


054 


FRINT"IE" SPC IZ2S) "ERASHED 
PRINTSPC (31) PEEK (7677) #1000+10° 
FORI=1105000: NEXT: FÜKE7677 ,0: GOTOS4 
PRINT"WPSPE (ZASI "BVERY WELL DONE": FORI=1TO5000: NEXT: POKE7477 „0: FOKE7678,1:607T 


FOINTS" 


73 DATA2,10,7734,8,10,7866,8,20,7876 
80 DATA15,10,8020,15,20,8030,21,10,8152 


programme 


Mt13=7724:M (2) =B8142:N(1)=1:ı N (PI=1:M (iR) =7856: N (FI =1: B=1000: N=255 
Jt="aß® - FORI=1 T020: JF=J FH "6": NEXT 


- FÜRI=1TO1000: NEXT: FOKE7678 ,F+1: FOKE38878 , 0: FOKE7877 „FEEE (7677141 


- FDRI=1T017STEP. 3: FOKES6878, I: FOKES6B77 „249: FORF=1TD60: NEXT: NEXT: FORE7678, 1 
NIT NSFRIiSS) "YOU SCORER "5 e 





Rock’Me ist ein kurzes, aber dennoch ver- 
blüffend effektvolles Musikprogramm für 
den VC-20 mit min. 8kB-Erweiterung. Mit 
Rock’me kann eine Sequenz von 12 Takten 
plus Begleitung {über die Tastatur) ge- 
spielt werden. 

Sind beide Listings abgetippt, wird zu- 
nächst erst Rock'me Datas geladen und 
gestartet. Ein Fehler wird automatisch an- 
gezeigt. Sollten alle Datas korrekt sein, 
meldet sich der VC-20 mit READY. Nun 
NEW eingeben und danach wird Rock’me 
Basic geladen. Mit RUN gestartet können 
Sie nun musizieren. 

Zunächst muß erst einmal die Huellkurve 
programmiert werden. Mit F1 hältnun der 
lange Cursor an, und unten unter dem 
ADSR-Feld blinkt ein Balken. Sie können 
nun mit den Tasten 0-9 + A-F die Laut- 
stärke für 4 Zyklen programmieren. Ein 


2 FOKE37138, 237: FPOKE38877 ,42: TArli 


= FRINT"W="; 
3 SBSLB3O00 


RETURN würde den alten Wert (beim Start 
= 0) übernehmen. Haben Sie die 4 Zyklen 
programmiert, beginnt der lange Cursor 
wieder zu wandern und somitist die Huell- 
kurveneingabe beendet. 

Nun wird der Rhythmus programmiert. 
Tippen Sie nun auf die F7-Taste. Der lange 
Cursor. verschwindet wieder, und es er- 
scheint ein kleiner Cursor. Sie können nun 
mit den Cursortasten wie im Direktmodus 
umherwandern. Passen Sie bitte in die- 
sem Modus besonders auf! Denn ein ver- 
sehentliches Bildschirmlöschen durch 
SHIFT/CLRHOME kann nur durch erneu- 
ten Programmstart rückgängig gemacht 
werden. 

Den Cursor setzen Sie nun an Position ’1‘ 
der Snare-Taktzeile. Um nun einen Takt- 
punkt zu setzen, betätigen Sie bitte SHIFT- 
Q. Der ausgefüllte Ball stellt einen gesetz- 


1017 NEXT 


ten Taktpunkt, der während der unausge- 
füllte Ball einen ungesetzten darstellt. 
Probieren Sie die einmal folgende Se- 
quenz aus. 


Durch RETURN gelangen Sie wieder auto- 
matisch in den Play-Modus. Sie sollten 
nun den Rhythmus hören können. Beson- 
ders interessant ist der Anschluß an eine 
STEREO-Anlage. 

Mit den oberen Tasten Q-* können Sie die 
Begleitung spielen. Sie wirkt auf Bassi 
und auf Bass?, wobei Bass2 = Basst + 1 
Oktave höher entspricht. 
Beachten Sie bitte, daß Snare und Cymbel 
monofon sind, d. h. nur ein Instrument ist 
gleichzeitig hörbar. Die Cymbei ist dabei 
dominant. 

Nun viel Spaß beim Musizieren mit 
ROCK'ME. 


1070 POKES7125,0: FORD=34874T038877 


«FOKED,O:NEXT 
1000 FORSC=OTOTA 1021 BOTO4000 
1011 FOKEB447,5C 1098 NEXT \ 
1013 SY58704 1099 GOTO1900 
1014 SYSB448:5Y59528 3000 PRINT” “3 
1015 5Y585972:5Y5973&4 3005 FRINT" 123456789ABC" 
15 FORT=1T04 3010 FÜRAS=0TD4: FRINT" "3 sFORIS=ÖOTOTA: 
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IFFEEFK{BE73SI=1THENPOKEZ68B78,LIT) 
IFFEEK (9735) =0 THENFORE34878,0 


Compute mib 





PRINT"O"seNEXT:READEF:FRINT" "EF:NEXT 


35 


programme 


3040 
30309 
3054 
30650 
3082 
3083 
3055 
306 
3070 











PRINT " ERERREDEREEEN 
PRINT" "; a 

EEE ET ERSTE 3080 PRINT" EIIRIEHTRITRIMEEHTITGEEE 
FEIND ME BY H.6.NDWACKT"' as san eier 
PRINT" IADSFR } ” : 3082 FRINT"ERkABFRRbHEF 7 => CREATE" 
PRINT“ | je 3084 PRINT"GBRREERKEBRI(C) 1785" 
FORT=1TOB: PRINT" | |":NEXT 3077 RETURN B N 
PRINT® In, 4000 IFPEEK (197) =63TH 
PRINT"B"; i 4005 IFFEEK (197) =39THEN4200 

7 Hi 


43007 GDTO1098 


4010 SYSBS28:5Y598528: POKE178,0: FRINT"ERERRRIEE" ; : DPENI „O0: INFUT#1 ,„E$: CLOSEI 
40620 GOTDLOOO 

4200 FDR5SD=0T03:F=4559+5D; H=1+5D 

4210 GOSUB4300:W=L (H) »GOSLUBS000 

4220 NEXT: GOTD1000 

4300 FORRF=FTDOP-7+225STEFP-22: FÜKERF ‚„PEEE {RF) ANDLZFENEXT 

4310 BETE$:FORVE=1T0S50: NEXT 

4315 IFE$=""THENEt=" " 

45320 IFASCKEF) >74 7ANDASC (EIS SBTHENA3SO 

43306 IFASCTEF) >AAANDASC (EF})<F7ITHENEF=CHRE (ASC CEFI-7) :GOTG4350 
45333 IFEF=CHR$ (13) THENRETURN 

4340 FORRF=FTOP-7#=225TEP-22: POKERF „FEEK(RFIORL128: NEXT 


4345 
4350 
4357 
- 6000 
8005 
S01d 
S015 
&01B 


EOLasSD8 6020 IFE=ÖANDF=1THENAOTO 

LH) =ASC ESF) -48B 6030 FORT=1TOE 

SEEN 6040 A=A-22 
A=A096+20822+4545D : 6050 POKEA,140 

ra &0&0 NEXT 

us 6070 IFF=1THENA=A-22: FÜKEA, 78 
Q=A: FORY=1TO8: Q=9-22: POKER „37: NEXT 8080 RETURN ” 
IFE=OANDF=0THENRETURN 


7000 DATA" _SNARE" „"_CYMBEL","_BASS1"," BLOCKS" „"_BASS2" 


30000 RESTÜRE 

50010 REABDA: B=B+A: X=X+1: IFXX 377 THENSOO1O 

30020 IFB<»38G03&THENFRINT"FEHLER IN DATAS!":END 

S0225 FRINT"DATAS DE!" 

306030 REBTORE: X=8197+756 

500409 FORT=110327:READA: B=B+A: FÜKEX „A: X=X+1: NEXT 

30050 END 

32000 DATA172,255,32, 185,23,16,201,81,208,5,169,7,141,18,145,185,45,16, =01, 
S2o01 DATA208,5,169,224, 141,13,144, 185 67, 16, 201, 81, 208, 5, 169, 254, 141, 13, er 
32062 DATRISS5,89,16,201,81,708,8&, 173 ‚254,32,141, 11, isa, 185, 111, 15,201 ,81,208 
320053 DATAS, 169,251, 141,12, 144, 185,133, 15,201,8i, 208, 6,173,253,52,141,10,144 
32004 DATAS&, 76,245,162,0, 189 „23,16, “#1, 127, 157, 23, 16,189 „AS, 168,41,127, 157, 45 
32005 DATAIG, 189, 67,16 „a, 127,1597,67, 16, 189, 57,15,41,127, 157,89, 15, 189, 111,16 
32005 DATA41,127, 157, 11, 16, 199, 133, 16, 41, 127, 157, 133, 15,252,224,12, 208 ‚203,96 
‚32007 DATA234, 234,234, 234, 234, 234 „234, 254, 174,255, 32, 189 23,16,9, 128, 157,23,1& 
S2008 DATA187,45,18,9,128,157,45, 16, 189,67,16,9,128,157 ‚67, 16, i89, 59,16,7,178 
32007 DATA1S7,89,16, 189, 111, 15,7, 128, 157, 111, 16, 18?, 133, 16, 7, 128, 157, 133, 16, 96 
32010 DATA234 ‚234,234 ,234,234, 234 ,234,234,234, 234, 234, 234, 48, 135,96, 143, 9, 147 
352011 BDATA1,151,497,159,10,1635,2,167,50,175,58,179, il, 183, 5, 197,51, 171,12,175 
S20l12 DATA4,177 „52,201. 80 ‚203,13,207, nz, 209, öl, 212, 14, 215, &, 217,54, 219 „62,240 
22013 DATAO,0,152,0,189,208,33,205,197 „ö „240, 7,232, 232 „224,46, 208, >42 95,232 
32014 DATAI199 ‚208,33,141, 254 „32,96, I44, 36 „245,245,245, 245, 1, 182,0,172,10,144 
32015 DATA201 ,9,2098,25,175,11,144,201, ö, 208,18,175,12, 144,201, 0,208, 11, 173, 13 
32016 DATA144,201, 0,208, 4 „142,31,34, 96, 162 3 76, 62,34 
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1/86 


tips & tricks. 





Maschinencode-Routinen: 





Schneller Farbwechsel in Maschinensprache 


10 for i=0 to 9: reada: poke 7670+H,a.: next 
20 data 162,255,138,141,15,144,202,208,249,96 


Die Routine wird mit ‘sys 7670’ aufgerufen. 


Sie zeigt im Bruchteil einer Sekunde alle 255 Farbkombinationen. Ste istso schnell, daß 
das menschliche Auge sie kaum wahrnimmt, Deshalb ist sie nur in einer “for/next- 


Schleife wirkungsvoll. 


Programmschutz in Maschinensprache 
10 for i=7650 to 7675 :reada: pokei, a: next 


20 data 169,116,141,50,3,169,196,141,51,3,169,0,141,145,2 
30 data 169,2,141,30,145,169,194,141,20,3,169,253,162,34 


40 data 141,7,3,142,6,3,96 


Diese Routine wird mit ‘sys 7650’ aufgerufen. 

Folgender Schutz der Programme wird dabei aslMeIE 
a) Saveschutz 

b} Umschaltung zwischen Groß/Kleinschrift abschalten 

c) RESTORE-Taste abschaiten 

d} STOP-Taste abschalten 

e) Listschutz (bei LIST wird ein RESET ausgelöst) 


Die USR-Funktion 


Viele VC-20 Benutzer werden sich sicher 
schon gefragt haben, wozu eigentlich die 
USR-Funktion qut ist. Sobald man sie auf- 
ruft, wird ein ILLEGAL QUANTITY ERROR 
angezeigt. Ein Aufruf dieser Funktion führt 
zum Sprung des Interpreters in die Spei- 
cherstetle Null. Dort ist der Sprungbefehl 
JMP untergebracht. In den Speicherstel- 
len 1 und 2 steht die Adresse, zu der beim 
Aufruf hingesprungen wird. Wenn man 
\ nun durch Aufruf der USR-Funktion zu ei- 
nem Maschinenunterprogramm springen 
wili, solite man folgendermaßen vorgs- 
hen: 
s=(startadresse) {RETURN) 
poke 2,int(s/256) (RETURN) 
poke 1, s-peek(2}]mal 256 (RETURN) 
Gibt man nun z. B. a=usr(1) ein, wird zur 
Startadresse gesprungen. Die Zahl in 
Klammern hat keinerlei Funktion, muß je- 
doch angegeben werden. Der Vorteil der 
Funktion ist, daß man mit ihr erheblich 
schneller ein MC-Unterprogramm an- 
springen kann, als dieses mit einem SYS- | 
Aufruf möglich gewesen wäre. 





POKE-/Liste für VE-20 


poke 43,x:pokeAd,y = Der Basicanfang wird verschoben und 
zwar nach x+256maly 
poke 55,x:pokeä6ß,y = Das Basicende wird verschoben und - 
zwar nach x+256 maly 
poke 120,2 = Befehlsverweigerung 
poke 198,x = reguliert den inhaltdes Tastaturbuffers 
printpeek(197)} =enthältt den codierten Wert einer 
gedrückten Taste (normal = 64). 
?neek(162) = ergibt eine zufällige Zahl zwischen 
0&100 
peke 199,1 = Wirkung wie RVS ON 
noke 199,0 = Wirkung wie RVS OFF 
poke 211,x:poke214,y: 
sys 58640:print „text“ = 'print at’; positioniertes AudueHen 
poke 774,x =Listschutz: 
x=01 listet Zeilennummern 
x=27 listet Unsinn 
x=26 listet normal 
poke 775,x =Lisischutz: 
x=1T Systemabsturz 
x=200 'Error‘ nach der ersten Zeile 
x=199 listei normal 
poke 808,126 = Siop/Restore gesperrt 


poke 788,194 = Stop gesperrt 

poke 792,2 = Restore gesperrt 

poke 777,1 = Cursor 'HOME' nach jedem Befehl 
zoke 777,199 = wieder normal 

poke 657,128 = Commodore-Taste gesperrt 

poke 794,8:noke 795,0 = Kein 'OPEN' mehr möglich 

poke 804,0:pcke 805,0 = Kein 'INPUT‘ mehr möglich 


poke 810,0:poke 811,0 Kein 'GET' mehr möglich 
poke 818,116:poke 819,196 = SAVESCHUTZ 


puke 816,0:poke 817,0 = LOÖADSCHUTZ 
?pE(152) = Anzahl der offenen Files 
?pE(153) = Eingabegerät (normal 0) 
?pE(154) = Ausgabegerät (CMD); normal 3 
?nE(183) = Länge des Filenamens 
pnke 646,x = Zeichenfarbe regulieren 
?pE(788/+25GmalpE(789)) = Hardwareinterrupt (IRQ) 
?nE(653)} = Flag für SHHVGTRL 
sys 64817 = Schneilreset 
sys 65499 = setzt ti auf null 
sys 65511 = schließt alle Files 
sys 58234 = Sprung in die NMI-Routine 
wait 653,4 = wartet auf CTRL 

“ wait 563,8 = wartet auf SHIFT 
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programme _ 


| „Charly der Raketenmann“ fliegt mitseinem Raketenrucksack durch die Lüfte und versucht seinen Auf- 
trag zu erledigen. Ein Programm für den VC-20 Grundversion, das uns zeigt, daß selbst bei diesem Sy- 
siem die Programmierung in Multicolorgraphic erfolgen kann. 





Charly und sein Raketenrucksack erhal- 
ten den Auftrag, die Dynamitstangen ein- 
zusammeln, die ein Amokläufer auf dem 
Bildschirm verteilt hat. Durch Druck auf 
den Feuerknopf zünden Sie den Raketen- 
rucksack und Charly kann nun zwischen 
den einzelnen Etagen hin- und herfliegen. 
Aber Charly muß darauf achten, daß er 
richt mit den Luftmiren kollidiert. Ist es 
Charly gelungen zehn Dynamitstangen 
einzusammeln, erreicht er den nächsten 
Level. In diesem Levet gibt es noch mehr 
Luftminen und der Flug wird erheblich 
schwieriger. Insgesamt gibt es sechs ver- 
schiedene Levels, und man muß schon 
ganz schön qut und schnell reagieren, um 
alie Levels spielen zu Können. Achten Sie 
bitte auch auf den begrenzten Energievor- 
rat Ihrer Rakete. 









Gesteuert wird „Charty der Raketenmann“ 
mit dem Joystick. Die Programme müs- 
sen nacheinander auf Kassette gespei- 
chert werden und zurückgespult werden. 
Jetzt SHIFT/RUNSTOP drücken und alle 
Programmteile werden geladen. 


Wettlauf mit der Zeit! 


1 DATA182,0,189, 132,28, 141,12,144,201 Tej 
eil 2: 


0,240,2,232,96,76,216,29 


2 FORT=7&40 107656: READA: FOEET „AsNEXT 


ir: FH 
4 FORT=7300107319: READA: FOKET Az NEXT 5 Be EISEN 
9 FRINT"LEATCH ALL DYNAMIT!" 3 PRINT"HFOR UNEXFANDED VIC-20" 
& FRINT"SBUT BECAREFUL WITH THEAIR-MINES 4 PRINT"RWRITTEN BY KARÖLJ NADT" 
20 DATA22S,225,225,228,231,231,728, 5 DATA169,24,141,15,144,169,25,141,15,144 
231,232,235,240,235,231 & DATA173,197,0,201,39,240,3,76,176,29,96 
Fi DATA225 235, 222,221 „228,225,0 19 FORT=78091T07620: READA: POKET „A: NEXT 
SO FRINT"[I@":FOKE19FB, 1: POKEAR1 „131 11 FRINT"SEPRESS Fi TO START" 





12 SYS7600: PRINT"SOT" :FOKE19B,1:FOKE631,131 


Teil 3: 





z0 FORI= 8144 TO 5510 ;READDG:FÜKEI „DE:NEXTI SB DAFAFZS,112,112 94 DATASI,665,130,152 120 BATAS8,33,I7,66 
22 DATAO,30,32,76 76 DATALAG,132,130 76 DATA148,136,116 122 DATAA&,&6,132 
24 DATABA,74,34,28 46 DATAS4,752,28,19 72 DATAG4,64,68,1728B 98 DATASB,36,66,114 124. DATAIBO, 252,130 
2& DATAG2,34,118,76 48 DATA22,60,32,64 74 DATAIZ8,128,274 100 DATA7FS, 136,132 12& DATA130,68,56 
29 DATASB, 126,176 50 DATA64,192,78,34 76 DATN28,33,75,8& 102 DATA1372,78,34 128 DATASS,68,130 
30 DATA1S&,60,18,34 52 DATAs4,54,156,132 78 DATA74,66,132,132 104 DATA6S,65,56,4 130 DATA1I0,68,58 
32 DATASO, 44, 56,56 54 DATALZB,112,5E BO DATA132,32,74,84 108 DATALSO,176,5& 152 DATASO,18,16,32 
34 DATA252,48,75,65 55 DATASFE,66,114,78 82 DATATA,6B, 156,136 108 DATA14,16,16,1& 134 DATAS2,32,224 
36 DATA&S,128,128 58 DATALTZ,132,132 84 DATA1I8,56,68,5& 110 DATAZ2,37 52,32 326 DATAZB,4,4,24 
38 DATA72,56,&0,18 50 DATA14,4,8,8,8 86 DATA130,132,133 i12 DATAS6,68,68,1I2 i38 DATAIS, 170,254 
40 DATAZZ,22,32,65 62 DATALL,16,56,2 E83 DATA?2,112,58,36 114 DATALSS,200,58 i40 DATAO,60,37,32 
42 DATAG6,257,6%.16 54 DATA1,7,74,66,68 FO DATAS6,66,114,140 116 DATNS6,&6,56,132 142 DATAZ2,22,32,60 
AS DATAS2,650,37,54 &6 DATAZA,28B,32,25 2 DATA12B,128,56 i18 DATALS2,137,120 144 DATAG,110,112 
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144 
148 
150 
152 
154 
13& 
158 
180 
1&2 
154 
165 
168 
170 
172 
173 
i7& 
178 
1806 
162 
184 
1B& 
188 
170 
172 
174 
175 
i98 
200 
202 
204 
20& 
208 
210 
#12 
214 
21& 
218 
220 
=22 
224 
2265 
228 
230 
232 
234 
PRt} 
238 
240 
=42 
44 
as 
248 
250 
252 
254 
255 
258 
P2=1#] 
26% 


DATA16,50,16,1& 
DATA12,0,60,4 
DATA4,4,4,4,60 
DATAS,B,8,8,42 
DATA29,8,0,0,18 
DATAZZ,127,32 
DATA16,0,0,0,0 
PATAO,0,0,6,0 
DATAO,O,8,0,0 
DATAB,B,B,8,0 
BATAG,0,0,0,36 
DATAS6,S6,0,36 
DATAS6, 126,36 
DATA125,36,36 
DATAG,B,50,10 
DATA73,40,20,8 
DATAO,70,38,15 
DATAB, 100,98,0 
DATAC,S9,589,74 
DATA4B,72,72,48 
DATAO,0,0,0,0 
DATA18,8,4,0,4 
DATAB,16,1&,1& 
DATAB,4,0,32,15 
DATAB,8B,8,16,32 
DATAO,8,42,2B 
DATA&Z,28,432,B 
DATAO,0,B,8,62 
DATA9,8,0,15,8 
DATAB,0,0,0,0 
DATAO,0,0,0,0 
DATA126,0,0,0 
DATAO,24,24,0 
DATAO,0,0,0,0 
DATAs4,32,1&,8 
DATAA,2,0,124 
DATAP9,02,74,74 
BATA7O,70,12& 
DATA48,16, 16,16 
DATA16,165,16, 124 
DATAO, 124,444 
DATA124,64,54 
DATA124,2489,8 
DATAB,S6,54,8 
DATRE,248,64,72 
DATA72,72,124 
DATAB,8,8,62,32 
DATAS&A,A4,4,4,A 
DATASA, 112,64 
DATAB4,64,92,68 
DATA6SB,124,124 
DATAF,4,8,25,8 
DATAB,S,126,.56 
DATABG, 126,66 
DATABE,SB,126 
DATA124,68,68 
DATA124,4,4,4 
DATAS,0,0,8 


FRINT"LIOIS":FOKE178,1:FDKES81 ,151 


programme_ 


DATAO,0,12,51,40,40,40,40 
DATASA,56,124,40,40,40,124,124 
DATA124,124,56,56,56,56,60,50 
DATA124,124,56,56,54,56,120,120 

5 DATA169,127,141,34,145,173,32,145,41,128,133, 
251,169,255,141,34 

& DATA145,173,31,145,41,28,24,101,251,133,251, 
173,31,145,41,32,133,252,96 


A 


7 DATA355,143,143,2497,2497,143,143, 259 

109 FORT=5512T05519: READA:POKET „A: NEXT 

11 FORT=45541T05563+3%#B: READA: FOKET „A:NEXT 
12 FORT=7168T07202: RERDAS FOKET „A=NEXT 

14 FORT=5424T05423+1*B: READA:PÜKET „A:NEXT 
15 FRINT"TDJa":FOKE1F8,1:FOKE&31,131 


Teil 5: 


1 POKESS,0: POKES6 „24: P=0: PKT=0:LE=1: AN=Ö 
20 POKE3S5867, 254: POKE3S6878 , 20: POKES6877,8 
21 PRINT"IPRESS Fi TO START" 

22 POKE7601 „8: FOKE7604 ,9:5Y57600 

2& A=7&B0+22#V+X: PRINT"W" 


27 

100 
101 
102 
103 
104 
105 
108 


-107 


108 
200 
201 
202 
205 
500 


%=19: Y=13:0=5 7: EE=2000:2 


G0SUB1000 
A=7680+22#Y+X: Bi=PEEK (A) ı B2-PEEK (A+22) 
POKEN „65: POKEA+22,0 

SYS7168 


IFPEEK (251) =140 THENFOKEA „32: POKEA+22 , 22: X=X-1:0=67 
IFPEEK {251) =Z8THENPOKEA „32: POKEA+22 , 32: X=X+1:0=66 
IFPEER (252) =0THENGSOTO400 

IFFPEEK (A+44) =320RPEEK {A+44) =42ANDSF=ÖOTHENPOKEA,S32: YaY+l 
SYS7642 





KERISPUNKTE ":PKT 
RISENERBIE "sEES" " 
# EVEL "s;LE 








IFPEEK {A-1)3=219 THENX=X+1 








3505 IFB1=440RB2=4& THENPKT=SFET+LI AN=SAN+1 Bi 
3064 IFFEEK (A-1)<HS2ORPEEK (A+1)< > SZANDFEER {A-1)% 746 THENY77 


308 IFPEEK (A) =450RFEER (Ar2Z)=45THENPKT=PRT+1 

40G IFPEEK {A-22) £ >Z2ANDPEEK (A-2293 >4SANDPEEK (A-2232) X >42 THENFSI 

401 IFFEEK (2523 =0THENSF=1 

402 IFSP=1THENFOKEA+22 , 322 Val+ le YaY-1: IFV=3THENV=0: FOREN „32: V=V+1: IFV-3THENY=Y+1 


ı 5P=0; V= 

410 IFEE<=OTHEN?OOO 1000 FRINT HH" 
411 SYS7842 1001 FRINT"#EbkubkbbRkERRRh" ; 
500 IFSP=1THENEE=EE-10 1002 FRINT"#IRBRRERRRRRbRIRI Er" ; 
501 IFB1=420RB2=42THENGOTO2O00 1003 PRINT "IRkkkhbEhPheehburhn" ; 
700 IFANF=IÖOTHENLE=LE+1: P=0: AN=0: G0TO100 1004 FRINT"HERRRbRREFRRERE RR" ; 
995 IFFEEK (Ar44)< Y3SZTHENFOKES6977,0 1005 FRINT'HHRERFRAFEFPERRIRRRRRR " ; 
997 IFSP=1THENFORES6877 , 200 1005 PRINT'"#ERMkkbRERrPFuE" ; 
798 SP=0 1007 FRINT"#HHHHHRBRER" ; 
339 GOTD100 1008 FRINT '"HIREkbkiEbhbHHErEnueh" ; 

2 
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werkstatt 


1009 
1010 
1011 
1012 
1013 
1014 
1015 
101& 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
2000 
z001 
2002 
2003 
SYS7400:60Ta1 


FRINT"#H 


FRINT"SRhRREN 
PRINT" HERMEEDE 7 


FRINT"#RBR 


FORE=1 1020 


FÜKE545,15 
FORE=1TO10+LER2 


F=1:RETURN 


FRINT"ENERGIE ":EE 


BE DD BD Di De Ba Dr Fa a a Eu En Be Set 
FRINT" EU TEBEIASEPRERDERDE NT - 





PRINT" HARRBINHHEEBBRARARIRDEN ER 





Rx 

“= 
= 
s 


A ee eg rnerg Tree 
FOKEZABR7E, 20: FORES45 „10: IFP=1 THENI O4 


S=1INT{RND (1)#153+1: T=INTIRND {1)#153 +4 
IFFEEE (7580+22%*8+T)< >32 THEN1OIB 
FOKE7SBOHZ2&SHT „46: FOKE7SBC+22#5+ T+307720 , 10: NEXT 


S=INTCRND(1)#15) +1: T=INT (ANDI) #15) +1 
IFFEEK (76580+5%22+ 1) =35STHENIO2ZE 
POKE7&B80+5R22+T „423 FOKE7880+5#Z2H+ T+30720, 7: NEXT 


FRINT"WSGAME DVER ":FOKE3Z6B77,0 


FRINT"TOTAL SCORE "; (2000-EE)*#FKT 
POKE7&01 ,8: FOKE7805 , 15: FOKES4878 ,0: 5757840: 





Werkstatt: 





Der VG-20 besitzt wie viele andere Com- 
puter auch die Möglichkeit, Interrupts zu 
steuern. Zuersteinmal zur Bedeutung die- 
ses Wortes: Interrupt kommt aus dem 
Englischen und bedeutet soviel wie ‘un- 


| terbrechen’. Der Computer ‘unterbricht 


auch ca. 60 mal in der Sekunde seine Tä- 
tigkeit und schreibt z. B. die Systemuhr 
fort, läßt den Cursor blinken usw. Wenn 
wir nun den Gomputer dazu bringen wol- 
ien, zu einer eigenen Interrupt-Routine zu 
springen, muß man 


Wenn auch Sie Ihre erkeie 
Software unseren Lesern vorstellen 
| möchten, senden Sie uns 


| ®& einen Datenträger (Kasseite/Diskette) 
® ein Listing (nicht unbedingt erforderlich) 
| @ eine Programmbeschreibung 
® einen ausreichend frankierten 
Rückumschlag 





1. den IRQ-interrupt abschalten: 


1.1RQ abschalten mit MC-Befehl 
Ser | 


2.Von Maschinensprache aus 
Lowbyte und Highbyte in 788, 
789 einpoken 


3. Interrupt anschalten mit ‘CLP 


Damit wäre das ‘Ladeprogramm’ erzeugt. 
Aber halt, bloß noch nicht starten! Der 
Computer wird sofortnach dem Aufruf mit 
SYS 'Startadresse’ dasselbe wie bei Run/ 
Stop-Restore ausführen, da unser Ma- 
schinenprogramm noch nicht eingepoket 
ist. Dies wird jetzt nachgeholt. Aber nun 
dürfen Sie natürlich nicht den MC-Befehl 
RTS ausführen lassen, denn damitwürden 
Sie alle anderen Interrupts unterbinden 
und der Computer würde aussteigen. Also 
nehmen Sie statt RIS erst einmal den 
Sprungbefehl ‘JMP’ dezimal, also 76. Nun 
schreiben Sie in die Speicherstellen nach 
diesem Befehl Low- und Highbyte der nor- 
malen IRQ-Routine. 
Diese wird ermittelt durch: ?pE(788) & 
pE789. 
Also poken Sie gleich: poke low, peek788):- 
poke high,peek{789). 

! Wenn Sie nun das Ladeprogramm starten, 


2. in die Speicherstellen 788,789 Low- und : werden Sie sehen: Es läuft! 


High-Byie schreiben 
(Startadresse des ME-Programmes); 


3. das Maschinenprogramm schreiben 
4. Interrupt (IRQ) wieder anschalten; 


In der Praxis sieht das folgendermaßen 
aus: : 


Aber die Routine darf nur recht kurz sein, 
da sonst die rechnerinterne Uhr verlang- 
samt werden würde. Dies könnte einen 
Absturz des Computers zur Folge haben! 
Also teilt man die Routine am besten in 
kleine Einzelstücke. 


Jeizt noch ein Praxisbeispiel: Die Farben 
des Bildschirms wechseln ständig. 


| 10 for i=o to 12: reada : poke 7168+i,a : next : rem Lader 
20 fori=ote 3: reada : poke 7424+i,a : next: rem Prg. 
30 poke 7428,peek(788):poke7429,peek(789) 


40 data 120,169,29,141,21,3,169,0,141,20,3,88,96,206,15,144,76 
50 sys 7168 1 





Die Hintergrund- und Rahmenfarben editieren "usw. Jetzt erkennen Sie sicher 


wechseln ständig. 
Dabei kann man Programme schreiben, 


Compube mi 





die nahezu unbegrenzten Möglichkeiten 
der Interruptprogrammierung. 
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kurs 


| 6502-Assembler-Kurs 


Teil 9 





In unserer letzten Ausgabe haben wir die Funktionsweise eines Assemblers kennengelernt. Jetzt wollen wir den Aufbau eines As- 
semblerlistings durch das nachfeigende Beispiel verdeutlichen. 


Unser erstes Assembler-Programm: 


Das nachfolgende Listing demonstriert die Arbeitsweise des CMP-Befehls: 


Beschreibung der einzelnen Zeilen: 10 SYSSEAB64 3 AUFRUF FROFI-ASSEMBLER 


20 ; 
10 Start des Assemblers 30 3 *#*#+ BEISPIEL FUER CMP-BEFEHL ##%*# 
a0 3 
>0 - 40 Dokumentation (gekennzeichnet mit,;‘) 50 .BFT F,OO 
50 3 
50 Befehl zur Bildschirmausgabe und Obiekt- 70 *=49152 
code an Öriginal-Adresse 80 5; 
100 START LDA #20 
60 Dokumeniation 110 CMP #21 
er 12G BCS PLUS 
70 Definierung der Starladresse 130 LDA #0 sZEICHEN ‘@’ AUF DEM SCHIRM 
£ _ AUSBEBEN 
80 Dokumentation 440 STa 1024 
150 RTS 


100-190 Assembler-Listing mit Dokumentation 170 PLUS LDA #1 =ZEICHEN 'A’ AUF DEM 


1000 Kennzeichnung „Ende des | SCHIRM AUSSEBEN 
Assembler-Listings“ 180 STA 1024 
190 RTS 
1110 Basic-Zeile;Bildschirm löschen und 1000 „END 
MC-Programm aufrufen. 1016 PFRINT"L2":SYS 49152 


Ändert man die Zeile 50 wie folgt, wird das Listing auf einem Drucker ausgegeben: 
50 .OPT P1,00 


Ausdruck auf einem Printer; *#x%# BEISPIEL FUER CMHP-BEFEHL ##%%* 


zu. 8 


50% COOG .UPFT P1,00 
= 
70: Böoo *= 47152 
E 
100: 000 AF 14 START iDA #20 
110: 002 C7 15 CMEFO9 #21 
120: COöo4 Rob 05 BC5 PLUS 
130: Dooa A? 00 iDA #0 ;ZEICHEN '’@' AUF DEM SCHIRM AUSGEBEN 
140: coo8 BD 00 04 STA 1024 
150: COOB &0 RTS 
170: COOE AFP 01 PLUS LDA #1 ; ZEICHEN 'A’ AUF DEM SCHIRM AUSGEBEN 
180: COOE SD 00 04 STA 1024 
170: c011 50 RTS 
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Funktion des Programmes: 


Der Akkumutator wird mit dem Wert 20 geladen und mit dem Wert 21 verglichen. Wird durch den Vergleich das Garry-Flag gesetzt, 
springt der Computer in Zeile 170, wo der Akkumulator mit dem Wert 1 {Bildschirmcode für A) geladen wird. Wird das Carry-Flag 
gelöscht, wird der Akkumulator mit 0 (Bildschirmcode für Schnecke) geladen. Anschließend legt der Rechner den Akkumulatorinhalt 
| in Adresse 1024 ab. Da ab Adresse 1024 der Bildschirmspeicher beginnt, wird das Symbol in der linken oberen Ecke sichtbar. 





An dieser Stelle werden wir die alphabetische Auflistung aller Befehle weiterführen und anhand von kleinen Assembierprogrammen | 
demonstrieren. Um nicht jedesmal die Assembler-Kopfzeilen wiederholen zu müssen, beginnen wir unsere Beispiel-Listings immer | 
ab Zeile 100. Die Zeilen 10 bis 80 müssen aus unserem oben abgedruckten Beispiel-Listing entnommen werden. 


INX Increrient Memory hy One (Inkrementiere Index Register X um 1) 


Dieser Befehl besitzt die gleichen Eigenschaften wie der Befehl INC, mit der Ausnahme, daß hier nur das X-Register beeinflußt wird. 
Oft wird dieser Befehl zum Erhöhen eines Schleifenzänlers benutzt. 


432 
HEX Adressierung Bytes Syntax a] 
m u re en NV BDIZC 
08 impliziert t DEX a ____ 
Pe a Br zz X X 
Beispiel als Assemblerlisting: 
100 ‚Zeichensatz des Commodore ausgeben - 160 STA VIDEO,X ‚Zeichen in Bildschirmspeicher 
0; 170 INX ;Zaehler um 1 erhoehen 

120 VIDEO = 1024 ;Änfangsadresse des 180 BNE LOOP ;naechste Zeichen 

Bildschirmspeichers 190 RTS ;Ruecksprung nach Basic 

130; 200 .END 

140 START LDX #0 ‚Zaehier und Zeichencode 210SYS 49152 


150 LOOP TXA ; Zaehler als Zeichen an Akku 


BILGSCHIAM SPEICHER TABELLE 


































































































Das oben aufgeführte Beispiel gibt alle | Um den Ablauf des Programmes genauer | wir mrorrFerTerESFRerFeFSeFESFEFIEFEI 1 
255 Zeichen des Commodore-Zeichen- | zu verstehen, muß man die Speicherbele- | Hi EIEHFFFEFFERBERREe HE ai 
satzes auf dem Bildschirm aus. DerBefehl | gung des Bildschirmes kennen. =  EEtehH NnnH: SE: 
INX wird für zwei Funktionen verwendet: | Wir haben Ihnen diese in einer Skizze gra- | } EI i „‘ 
fisch dargestelkt. i a _ i 
mM RE 



































1. als Zähler von 0 his 255, Mi 
sh. nebenstehende Bildschirm-SpeicherTabelle | =: 


2. als Bildschirmcode | En 



































IT 
ı [137 177 7} 
(III FT 4 




















223 








In der Tabelle ist sehr leicht die Aufteilung | schirmeode für A in die Speicherstelle | Die nachfolgende Tabelle gibt uns auch | 
der Speicherstellen in Spalten und Zeilen | 1147. hierüber Auskunft: 
zu erkennen. Um beispielsweise in Zeile 4 | Nun, das hört sich einfach an, aber wie Ist 

und Spalte 4 den Buchstaben „A" zu brin- | der Bildschirmcode für das ASCH- Zeichen sh. Biläschirm-Gode-Tabelle auf der nächsten | 


gen, speichert man einfach den Bild- ı „A? Seite 


Wir werden uns in einem der nächsten Teile noch näher mit dem Bildschirm beschäftigen. 














INY Inerement Index Y hy One. {Inkrementiere Index Register Y um 1} 

Der Befehl INY entspricht dem INX Befehl mit der Ausnahme, daß hier das Y-Register beeinflußt wird. 76543210 
HEX Adressierung Bytes Syntax ä NV BDIZC 
8 impliziert 1 NY x x 
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BILDSCHIRM CODES 


Satzt Satz2 Poke Satzı Satz2 Poke 





< 


22 
23 
24 


N=XRX = < 


> om PneN-«xE 







DS” OO Som eG mM. 


e "0 m. 200° 532 3 - ss. 70 “ca om 
Br 
[= 





CHI TO zZr x. - IE71mMD9000 >»® 
[= 
S 


Literatur: 


6502 Mierssomputer-Programmierung, Peter Heuer, Hofacker Verlag 
6502 Programmierung in Assembler, Lance, A. Leventhal 


Der Checksummer 1.0 GPC ist das Einga- 
behilfsprogramm für alte Programme des 
TRONIC-Verlages. Es wird in Zukunft in je- 
der Ausgabe abgedruckt, um auch neuen 
Lesern die Eingabe der Programme zu er- 
leichtern. 


| Wie funktioniert der Checksummer? 
Tippen Sie zunächst das Programm ab, 


wobei sie darauf achten müssen, daß alle 
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Satzi Satz2 Poke 





Satz1 Satz2 





65 

66 

47 67 
48 68 
49 69 
50 70 
51 7 


52 
53 


54 74 
55 75 
1:3 


57 


DE N OD GG D AD ne 


DARDBOTINSZOSRAHBDIH THAN 


cC-H0 290 90 zZzZ2rx.- ron mon» 
EN 
a 


Poke 






kurs 


Satzi Satz2 Poke } Satzi Satz2 Poke 





















N vr | [Mm 108 
w 97 |[9 109 
®) x s!|B&)] 110 
vv e|Ig a7 
® Z “ | [d 112 
EB 9 | 113 
SH 2 | 114 
[H s3 Al 115 
MB «N 116 
SS NS s|TJ 117 
» SPACE s![1 118 
EN . „|ıM 119 
ku s|Mm 120 
(&] 9 | 121 
w oO M ı2 
U 101, a 123 
=} 002 | m 124 
O oo | 5 
ke 104 ! PF 126 
1 ZZ ıs|® 127 
uE 106 

[H 107 





Die Codes 128-255 ergeben die invers dargestellten Zeichen der 


Codes 0-127. 


An den freien Stellen in Spalte 2 stimmen die beiden Sätze überein. 


Zwischenräume mit dem Listing überein- 
stimmen. Auch REM-Zeilen müssen origi- 
nal übernommen werden. 

Sichern Sie nun das Programm auf KAS- 
SETTE oder DISKETTE bevor Sie es star- 
ten! 

Nach dem Speichern wird das Programm 
mit „RUN 65200“ aktivieri. Es erscheint 
die Meldung: CHECKSUMMER AKTIV 
FUNKTIONSTASTE 0. Betätigen Sie nun 
die Taste 0, wird der Checksummer aufge- 
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64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502/65002, Christian Persson, Heinz Heise Verlag 


rufen. Befindet sich kein zweites zu prü- 
fendes Programm im Speicher, wird ein 
Selbsttest durchgeführt. Ertönt am Ende 
dieses Selbsttestes ein Signal, ist das Pro- 
gramm noch nicht fehlerfrei. Sie sollten in 
diesem Fall, die auf dem Bildschirm aus- 
gegebenen Checksummen mit denen in 
Ihrer Zeitschrift vergleichen und korrigie- 
ren. Arbeitet der Checksummer über- 
haupt nicht, ist der Fehler so gravierend, 


‘daß Sie das Programm neu eingeben 





Programme 


müssen. 

Ist Ihr Programm fehlerfrei, entfernen Sie 
bitte die Zeilen 65500 bis 65530 (Delete 
65500 -} um den Selbsttest auszuschal- 
ten, Speichern Sie jetzt das Programm mit 
dem Befehl SAVE"CHECKV!",A auf Kas- 
sefte oder Diskette. Nur so können Sie es 
später mit MERGE an Ihre rganııE an- 
hängen. 


Wie henutzt man den Ghecksummer? 


Wollen Sie ein Programm mit CHECK 
überprüfen, laden Sie zunächst das zu 


Wer den Checksummer nicht eingeben möchte 


kann diesen auch unter der folgenden Besiell- 


nummer beziehen: 


prüfende Programm. Dann geben Sie den 
Befehl MERGE“CHECKV?" ein, um das 
Prüfprogramm anzuhängen. Wichtig ist, 
daß das zu prüfende Programm keine Zei- 
liennummer besitzt, die größer als 65199 
ist, Jetzt aktivieren Sie den Ghecksummer 
mit RUN 65290 und Sie können jederzeit 
die Prüfung mit der Funktionstaste O über- 
prüfen. Verglieichen Sie nun die im Heft 
abgedruckten Prüfsummen mit denen, die 
ihr Programm ausgibt. 

Falls Sie einen Fehler feststellen, müssen 
Sie nicht das Programm neu laden, son- 
dern können ihn normal berichtigen und 


dann wieder mit D das Check-Programm 
starten. Möchten Sie den Checksummer 
löschen, geben Sie einfach den Befehl 
DELETE 65209- ein. 


Anmerkung zu Checksummer 1.0 EPC: 
Greß-Kleinschreibung beachten! 


Leerzeichen innerhalb einer Zeile müssen 


dem ORIGINAL-Listing entsprechen! 
Leerzeichen am Ende einer Zeile werden 
ignoriert! 

Umgewandelte TOOKEN werden automa- 
tisch in den Ursprungswert zurückgesetzt! 
REM-Zeilen müssen eingegeben werden! 


Bestellnummer: 
GWS 10K Kassetie 





5200 
5210 
5220 
65230 
I+Frun &5250"+CHR$ (1X) 


VERSION 1.0 


’#*##+ Tronic ECPC Checksummer #%% 
"4% Autor Frank Brall 1985 #°%+ 


KEY 128,"63530 REM TRONIC"+CHRF (15 


CVS 100 Diskette 


55370 WERT=PEER {I+ADRESS+4) 
45380 IF WERT =32 THEN 65410 


65370 ZCHECK=ZCHECK+WERT+CISWERT) 


553409 


IF ZCHECK>65535 THEN ZCHECK=ZCHECK 


45575: 50T0 85400 


65240 PRINTıPRINT"CHECKEUMMER AKTIV FUN 
KTIONSTASTE O":PRINTIEND 

65250 CLSıPRINT"Tronic-Verlag Checksumme 
r Version 1.0" 

5280 FRINTıPRINTIPRINTIFRINT"<BPILDSCHI 
RM <D>RUCKER" 

653270 ES=INKEYF:ES-LOWERF (EFF IF ES="" T 
HEN 453270 } 
565280 IF Ega"h" 

55290 IF E$="d" 

45309 BOTD 65200 
65310 ADRESS=3481 GCHECK«01 CLSı PRINT#HA,"C 

HECK V11PRUEFSUMMEN: "aPRINTHAIPRINTAA,"Z 

EILENNR.ı SUMMEN" 

45320 LAENGE= (PEEK (ADRESS+1) #256} +PEEK (A 

DREES) 

45330 ZNUM= (PEEK (ADRESE+3) #256) +PEEK (ADR 

ES55+2} 

65340 IF ZNUM=55200 THEN IF Fmö THEN 654 
80 ELSE PRINT #A, USING "El" ZNUMIJ PP 


THEN a=0:50T0 65310 
THEN a=8:B0T0 685310 


65410 NEXT I 

65420 IF FeO THEN ZCHECKI=ZCHECK: ZNUMI=Z 
NLIMa ADRESS=ADRESS+LAENGE: F=1:G0T0 65320 
65430 F=0ı ZNLUM2=ZNUM 

65440 PRINT #A,USING "4#Hhbahh" 4 ZNUMI1 a PRIN 
T#A,"—"3 PRINT #A,USING "Bl" 4 ZNLIM23 ı P 
RINT#A,"ı "42 PRINT #A,USING "hl" 4 ZCHE 
ECK+ZCHECK1 

65450 BEHECK=-GCHECK+ZCHECK+ZCHECKL 


65460 IF GCHECK>65535 THEN GCHECK=SCHECK . 


655361 60TD 65460 
65470 ADRESS=ADRESS+LAENGE:GOTO 65320 
65480 PRINTER, "mn nn 


65490 PRINT #a,"GESAMTCHECKSLUMMEr "GCHEO 
K 

65500 BEHECK=03 Andı PRINTAR: PRINTAA, "CHEO 
KSUMMER SELBSTTEBST !"ıB0OT0 45360 

65510 IF GCHECK=52078 THEN PRINT#A,"=--EN 
DE--"ıEND 


RINT#A,"- "YsPRINTSA,"ı "yaPRINT RA, 65520 PRINT "FEHLER IM CHECKSUMMER !"150 | 

USING "HH" ; ZCHECKA F=01 BOTO 45490 UND 1,100,500 | 

65350 IF ZNUM=45500 THEN 55510 65530 REM TRONITG | 

65350 ZCHECK=0: FOR Is0 TO LAENGE-& 

3 i | 

CHECKSUMMER SELBSTTEST ! 

| 

65200-855210: 73781 65280-652901 53556 65360-655370: 87147 65440-455450: 18832 
65220-652530: 36737 65300-555102 24701 65390-553903 32907. 65460-655470: B41l26 
89240-865250: 11824 65320-653301 43809 45400-535410: 49578 65480-855490: 74923 

63260-632701 B509& 65340-655350: 74115 | 65420-534301 28858 =-ENDE-- 
1/66 
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KHARR - 


Sie sind der letzte Kampfpilot einer glorreichen und heldenhaften 
Raumflotte, die keinen Gegner fürchten mußte. Dank eines Omega- 
Lasers, die z. Zt. stärkste Waffe innerhalb des Universums, waren 
und sind Sie Ihren Gegnern kämpferisch überlegen. Leider hat diese 
“ Wunderwaffe aber einen erheblichen Nachteil. Nach jeweils vier 
Schüssen müssen Sie eine kurze Feuerpause einlegen, um die Kano- 
ne nicht zu zerstören. Achten Sie beim Abschuß der feindlichen In- 
vasoren also immer auf die Anzahl der abgegebenen Schüsse. Istes 
Ihnen gelungen ein KHARR-ALIEN zu zerstören, verwandeltsich die- 
ser in einen Mutanten der zu Boden stürzt. Dieser Mutant darf aber 
unter keinen Umständen den Boden berühren, da die Druckwelie 
des Aufpralis den eigenen Jäger zerstören würde. Die Steuerung der 
drei Jäger erfolgt mit dem Joystick. 





1 REM HH 

2 REM * DEFENDER %* 

3 REM HHRHRHBSHRRH 

4 SYMBOL AFTER 237: 5YMBOL 238,137,74,2,8 
,65,4,66,145 

SE MEMORY SÖFFF 

& GOSUB 70006 

9 REN Farben setzen 

i0 MODE OsBORDER O0: INK 0,0: EL5 

20 INK 1,6&1INK 2,24: INK 3,11:2INK 4,58,24 
30 INK 5,26:INK 5,15: INK 7,1B8:ı5PEEDb INk 
5,53 

35 INK 8,25: INK 9,15: INK 10,7 

49 REM Jaeger Rechts 

50 DATA 0,0,0,.0,12,12,12,0,64,192,0,0,0, 
-192,128,0 

&0 DATA 15,192,200,192,0,172,128,0, 64, 19 
2,0,0,12, 12, 12,0 

70 REM Jaeger Links 

80 DATA 0,0,0,0,0,12,12,12,0,0,192,128,0 
,64,192,0 

90 DATA 192,196,192,32,0,64,192,0,0,0,17 
2,128,0,12, 12, 12 

100 REM Allen 

110 DATA 0,0,168,0,0,84,252,0,0,252,252, 
159,0,184,184,158 

120 DATA B4 ,252,252,252,0,252,124,158B,0, 
80,80,0,0,1850,0,140 

130 REM Mutant 

140 DATA 0,8,8,0,0,64,0,0,0,64,0,0,0,192 
„128,0 


Invasoren bedrohen die Erde 


Programme 


Wichtig: Nachdem das 
Programm abgebro- 
chen wurde, können 
Sie es mit GOTO 10 
neu starten. Ein Neu- 
start mit RUN würde 
zur Fehlermeldung 
„Improppor Argu- 
ment“ führen. 


150 DATA 0,192,128,0,0,64,0,0,0,54, 0, 9,0 
,9,0,0 

199 REM Graphik einlesen 

2009 RESTORE 50: a=kA0I0 

210 FOR i=0.TD 3iıREAD = 

220 POKE i+ta,cıNEXT i 

230 RESTORE Bü: a=a+ti 

240 FOR i=0 TO 3S1:READ c 

250 FOKE i+ta,cıNEXT i 

270 RESTORE 110: a=sa+i 

280 FOR 1=0 TO SirREAD c 

290 FPOKE i+a,cıNEXT i 

360 RESTORE 130: a=.+1 

s10 FOR i=ü TO S1ıREAD € 

320 FOKE it+ta,cıNEXT i 

330 sack A000: REM M-Code Start adresse 

340 b=RA0OOBE:REM Ziel fuer Zeichenauswahl 

3570 1ak30:dekä0: 0570: FO 

360 REM c-f Werte fuer Zeichenauswahli 

4979 REM Spielfeld Aufbau 

500 hse=0 

505 sh=0:sho=0 

Sid sc=Osx=ilsyriZ2:POkE b,e:ship=d 

515 zashler=0:ılevai=!i 

520 MOVE 1,370: DRAW 540,370 ,.7 

550 FEN S: LOCATE 1, 1: PRINT"SCORE" LOCATE 
10,15 PRINT"HIGH" sLOCATE 15,13 PRINT"SHIF 

Ss" 

540 LDEATE 1„2:PRINT see LOCATE 
T hsec:LOCATE 15,2: PRINT ship 
550 MOVE 1,365:DRAW 640,365,7 
560 MOVE 1,11DRAW 30,10,10:1 DRAW 70,5,102 
DRAW 120,8,10 

570 DRAK 130, 2, 19: DRAW 260,10,10: DRAW 27 

G,2,10 

580 DRAW 340,7,10: DRAW 410,1,103DRAW 420 
6,10 

570 DRAN 506,2,10: DRAW 550,10,10: DRAW &0 

0,3,10 

#00 DRAW 640,2,10 

810 LOCATE x,y:CALL a 

&20 SOUND 1,0,30,15,1, nr 30 

550 SQUND 4, 10, 30, 15, 1, 10 

635 REM Heute 

&40 z=INT ({RND#2) +1: 

650 IF z=i THEN u=lıul=i 

“au IF z=2 THEN ur20s ule-i 


10,2:PRIN 
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470 veINT {RND#15) +4 

&80 IF v<7 THEN vi=1 ELSE vie-i 

690 FOKE b,2:LDEATE u,vsCAlLL a 

700 uzaur v2zv 

710 uzu+ul:svavy+vi 

726 {IF u>=20 OR u<=1 THEN LDEATE u2,v2:P 
RINT" ":60T0 4409 

730 IF v>22 THEN vi=-i 

730 IF v<S5 THEN viel 

735 CALL &BD19 

750 PÜKE b,eıLOCATE u2,v2sPRINT" 

750 LOCATE u,vıCAlLL a 

770 nileyıyli=y 

775 IF eh=1 THEN sho=ssho-i:s IF sho<=0 THE 
N ah=0 3 

780 IF JOY(O) AND 4 THEN c=&50 

790 IF JOYiO} AND B THEN c=&30 

800 IF JOYiO) AND 1 THEN IF y>S THEN yey 
-2 

B10 IF JOY(o} AND 2 THEN IF y<22 THEN y= 
ytz 

815 CALL %BD19 

820 FOKE b,c:LOCATE xi,yl:sPRINT" " 

830 LOCATE »„yıCAlL a 

835 IF x=u THEN IF yev THEN GOTO 3500 
840 IF sh=0 THEN IF JOYtO) AND 1& THEN 5 
OTO 2009 

850 

B&A0 zuf=12-1evelsIrF INT{RND#zuf)+i1=i1 THE 
N GBOTO 3600 

870 IF mu=i1 THEN 5B0OTO 40600 

900 G0OTO 700 

2000 sho=rsho+l1: IF sha>=4 THEN shel:sho=6 
2005 IF c=250 THEN GOTR 2100 

2010 MOVE 355,400- (16%y) r6r DRAW 440 ,400- 
(16#y}+6,2 

2020 SOUND 1,10,15,7,0,2 

2023 expl=Ö0 
‚2030 IF y ev THEN IF x<u THEN expl=l 

2035 expli=0:IF mu=1 THEN IF yevv THEN I 
F x<uu THEN expli=i1 

2640 MOVE 355,400-{16*y) +6: DRAW 540 ,400- 
(löty}r+&A,0 

2080 IF expi=1 THEN GOTR 2500 

2085 IF expli=i1 THEN GOTO 4209 

2070 GOTO 850 

2100 MOVE 320,400- (1&#y)+&:DRAW 1,400-11 
dty)+ö,2 

2110 SQUND 1,10,15,7,0,2 

=115 expl=0 

2120 IF y=v THEN IF x>u THEN expl=i 

2125 expll=0:IF mu=1 THEN IF y=vy THEN I 
F x>uu THEN expli=i 

2130 MOVE 320,400-=- {1öry)+&:DRAW 1,400- (1 
bry)+6,0 

#140 IF expl=1 THEN GOTO 2500 

2145 IF expli=1 THEN GOTO 4200 

2150 E0TO 850 

2500 LBEATE u,vıPEN 12:PRINT CHRS$ (238) 
2510 SOUND 1,5,50,7,0,1,31 

2520 FOR i=1 TO 27: INK 12,i:NEXT i 

2530 FOR i=?27 10 0 STEF-1: INK 12,i12NEXT 
i 

2535 LOCATE U, varRINT" " 
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2540 IF mu=0 THEN: mu=1:vvevsuusu 

#550 PEN S:ELDEATE 1,„2:ı85r=sCc+1l0: PRINT sc 
25£0 zaehler=zasehler+tiıIF zaehler=10 THE 
N zashler=0:level=level+1:50T0 2300 
2570 GOTD 540 

2500 IF level>=7 THEN level=7 

2610 PEN 8:LOCATE 4,10: PRINT"LEVEL"level 
2&20 FOR i=1 TO A:FOR 1=1 TO 24 

2530 INK O,1:SQOUND 1,22,1,7,0,1,31 

Z&40 NEXT 1,i 

en INK Ö,0:LOCATE 3,10: PRINT" 


26409 GOTOD 5840 

3000 IF x>u THEN SOTO 3100 

3010 MOVE 32#u-32,400-(16#v})+6:DRAW 1,40 
0-(iö#v)+6,i 

3020 SDUND 2,100,15,7,0,2 

3030 expl=0:1IF y=v THEN expl=1 

s640 MOVE Sz#ru-32,400- (14V) +6: DRAW 1,40 
O-t{1&8v)+6,0 

3950 IF expl=1 THEN GATO 3500 

30506 GOTD 7006 

5100 MDVE 32%#u,400- (16#v) +6: DRAW 640,400 
-t1b8v)+6,1 

3110 SOUND 2,100,15,7,0,2 

3120 expl=0: IF y=zv THEN expl=ei 

3130 MOVE 32#4,400- (15#vV) +5: DRAW 640,400 
-(16#v)+6,0 

3140 IF espl=1 THEN GOTD 3500 

3150 GOTG 700 

3500 INK 2,24 ,6:INK 1,4,24 

s519 SOUND 1,4,680,7,0,1,31 

3520 FOR i=i TO 31: SOUND 4,0,5,7,0 2,i 
3530 NEXT i 

3540 INK 1,65: INK 2,24 

3550 ship=ship-lı IF ship=0 THEN G0OTO 100 
00 

35506 PEN 8:LOCATE 15,2:PRINT ship 

3570 G6DTO 700 

4000 vyvi=zvvruul=uu 

A010 vyv=vv+ls IF vv>23 THEN LOCATE uui,vv 
1:FRINT" "emurd: vv=O: uu=0:6070 3500 

4020 LDOCATE uul,vvirPRINT" " 

4030 LOCATE uu, VEAEORE b,f:CALL a 

4040 GOTO 700 

4200 PEN 11:L0CATE uU, vvaPRINT CHRE& (238) 
#216 SOUND 1,4,45,7,0,1,i2ıFüR i=1 TO 27 
INK i1,i3:NEXT i 

422% 8c=Ssc+20:LOCATE 1,2:PEN SEPRINT sc 
42306 DCAFE uu,vvsPRINT" "zmuso 

4238 vv=D: yu=ü 

4242 5070 700 

875% NEM Multi-Color M-Code 

O0 eRADOO 

7005 HESTORE 7040 

F9o1S "DR i=0 TO 39:READ c 

GO2G POKE ati,c 

7030 NEXT i 

9040 DATA &cd,&7B,%&bb „&25,&2d ,Lcd,&1la,&b 
5,518 ,&08 

F050 DATA %01,&30,&30,%02,877,%03,%423,%0 
2,877,803, 823,802 5877 ,&03,823 

70&0 DATA &02,877,&03,805,8&01,4#4,807,&0 
9,%01,&15,%02,8&0d,%30,&09,201,201 
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9070 ENT 1,5,20,1,10,15,2,5,-10,53 


3075 ENT 2,4,30,2,6,15,1,3330,1 da die Druckwelle sonst deinen Jaege 
9080 8 r vernich- tet." : 
9090 2 7180 PRINT"Du hast drei Jasger zur Verfu 
3100 MODE 1:BORDER 12:INK G,1:INK 1,6 egung'! 

8110 LOCATE 14,1:PEN 1:PRINT'TDEFEND 2190 FRINT"Gesteuert wird mit dem Joysti 

E R" x ck + 
9120 FRINT"Die Invasoren vom Planeten KH 9200 PRINT"ALLES KLAR? Taste Druscken" 
ÄRR haben die Erde besetzt" 9210 EALL %BBIB:CLS: RETURN 
9130 PRINT"Du bist als letzter Kampfpilo 99700 RETURN 
t der Raum-flotte unterwegs um die Invas 10000 FEN B:CLS:LOGATE 5, 105PRINT"BAME D 
oren zu. vertreiben." VER" 

9140 PRINT"Dein Dmega-Laser ist die stae 10010 PEN 7: LOCATE 1,12;PRINT"PUNKTE="s 
rkste Waffedie zur Zeit im Universum ver ce 

Zuegbar ist" 10020 IF sc’hse THEN hec=scıLDCATE 1,14: 
9150 PRINT"Doch er hat einen Nachteil.Na PRINT"NEUER HIGH-SCORE" 

ch jeweils 4 Schuessen muss eine kurtze 10030 SDUND 4,100,79,7,0,2,31 

Feuerpause eingelegt werden um ihn nicht 10040 SOUND 2,150,100,7,0,2,15 

zu Zersto-ehren.Dein Auftrag ist es =0 10050 SUUND 1,200,130,7,0,1,20 
hiesen" 10070 PRINT"Taste Druecken" 
91&0 PRINT"Doch Vorsicht ,hast du eines d 10075 CALL &BBOS 
er KHARR- ALIENS zerstoehrt so verwande - 10080 CALL &BB18 
it er sich in einen MUTANTEN der zu 10095 CLS ‚ 

Boden faellt" - 10090 LOCATE 1,10: INPUT"NEUES SPIEL";a$ 
9170 FRINT"Dieser MUTANT darf unter kein 10100 IF as="j" THEN CLS:mu=0:560T0 Si 
en Um- staenden der Boden beruehren 10110 MODE lıFEN Z:INK O,1:CL5:END 
EHECK Vi:PRUEFSUMMEN: 330- . 340: 105077 BiS- 6820: 29318 | 2640- 26501 11302 5050- 7060: 75853 

350- 36501 96805 BFO- 8351 55941 2640- 3000: 13622 2070- 90751 23766 
ZEILENNR.e SUMMEN 499- 5004 20173 B40- 8501 39730 | 3010- 30201 37075 FOR0O- 70908 2 
+ 2: 14399 so5- 510: 25588 B&0- 870: 514317 | 3030- 30401 84625 7109- 110 75943 
3- 41 36457 515- 520: 34900 900- 20001 27932 } S3050- 3050: 175841 9120- 91305 72117 
5- &ı 2653 S30- 5401 9645 2005= 20101 241756 | 3100- 3110: 3261& 9140- 71504 56401 
9. 10:1 17224 S50- 5601 33975 2020- 202% 8845 | 3120- 5150: 80157 9160- 4170: 35378 
20- 2301 32832 570- 5801 386470 2030- 20354109670 | S140- 31501 17541 91850- 91901116595 
s35- 40: 18078 =0- 600: 20940 2040- 20601 30224 3500- Z510r 10313 9209= 9210: 41360 
SO=-  6&0:107108 610» 520: 16025 2065- 20701 17372 | 3520- 3530: 27279 99700-100001 19434 
70ü-  BOr 55581 &30- &35ı 181B7 2400- 21101 10294 | 3340- 33530: 60731 10010-100204 70794 
50- 1001 64412 640- 650: 40973 211S- 21201 48757 | 3560- 3570: 15503 10030-100401 12718 
110- 1201 64418 &40- 6701 49093 212S5- 2130; 52012 | 4000- 40101 59037 10050-10060s 35306 
130- 140ı 41266 480- #901 59040 2140- 21451 TIb664 3020=- 4030: 47380 10070-100751 14928 
150- 199: 53623 700- 7101 63275 2150- 25001 24607 | 4040- 42001 32254 10080-100B5: 1784 
200- 2101 22808 720- 7301 21496 2810- 25201 324350 | 4210- 42201 35180 10090-101004 55135 
220= 230: 34948 740- 745ı 16216 Sarın- 257%: A73082 4230- 4235: 39245 10110- ı Br9F6 
240- 250: 33190 7S0- 760: 318754 2E40- 25501 48647 | 4240- 89991 19387 | 7-7 mem 
270- 280: 32164 770- 775: 40579 2S40- 2570: 22341 | F000- 90051 4340 | GESAMTCHECKSUMME: 52962 
2790- 300ı 37148 780- 790: 35400 2600- 26101 61047 9010- 9020: 24530 
310- 320: 33190 800- 8101118815 2620- 26301 37643 | 7030- 70401 50978 





Das Programm „Boulder Dash“ istein Action-Spiel, bei dem Sie Ihre Spielbilder selbst entwerfen kön- 
nen. Der Gamedesigner im Spiel ermöglicht einen individuellen Bildschirmaufbau der einzelnen Le- 
vels. Sie bestimmen also in diesem Programm selbst das Spielgeschehen. 






Das Ziel des Spielesistes, mitihrerSpielfi- | umherfliegenden Schmetterlingen be- | können Sie mitjeder beliebigen Taste aus- 
gur alle auf dem Bildschirm verstreuten | rührt werden. Insgesamt steht Ihnen nur | ser „Ss“ aufrufen. An dieser Stelle erklären 
Diamanten einzusammeln. Allerdings | ein Leben, jedoch unbegrenzt viel Zeit für | wir Ihnen die Menue-Punkte und Ihre 
müssen Sie darauf achten, daß Ihnen | diese Aufgabe zur Verfügung. Funktionen: 

nicht bei diesem Einsammeln Felsbrocken | Die vom Programm vorgegebenen Bilder ; 1. Editor 

auf den Kopf fallen oder das Sie von den | rufen Sie mit „S“ auf. Den Gamedesigner | Sie gelangen in ein Menue, indem man ein 
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programme 


_ Symbol auswählt. Editiert man ein neues 
Bild, füllt das erste Symbol das Feld, an- 
sonsten steuert man den Zeiger mit dem 
Joystick. Ein Symbol wird durch drücken 
des Feuerknopfes gesetzt. Die Spielfigur 
und .die Schmetterlinge können nicht 
überschrieben werden. Mit der ENTER-Ta- 
ste kehren Sie in das Menue zurück. 


2. Laden 
Mit dieser Funktion können Sie selbster- 
stellte Spielfelder laden, die auch an- 


schließend über den Editor editiert wer- 
den können. Für den Namen kännen Sie 
auch Wildcarts verwenden. 


3. Speichern 


Dieser Menuepunkt speichert selbstedi- . 


tierte Bilder ab. 


4. Spielen 
Die selbstentworfenen Spielbilder können 
gespielt werden. 


5. Ende: 
Sie gelangen zurück in das Titelbild und 
das editierte Bild wird gelöscht. 


Anmerkung: Die im Programm 
vorgegebenen Bilder sind als An- 
regung gedacht. Es dürfen pro 
Bild nur neun Schmetterlinge ge- 
setzt werden. Ein Neustart des 
Programms erfolgt über die Taste 
Null des Zehnerblocks. 


10 REM er 
20 REM ### BQOULDER DASH Er 
30 REM ##% 1985 BY #Er 
40 REM #%% Ralf Moehse *#% 
SO REM ###*. Kirchweg 2 rt 
&0 REM #*# 2848 Vechta-Oythe *r% 
FOSREMICHHMRT HE BE ae en ee *%*+ 
BO REM ### Shaperoutinen von 8 
970 REM ###* Volker Everts *r 
TIOFREMIERIR a re EN RE EDEL “rk 
119 REM x#* Foke fuer Modes KK 
120 REM #*#* von *rr 
130 REM #a#+ Helmut Tischer Kr 


140 REM BREI 
150 REM shape routine 

1&0 REM es werden die befehle 

170 REM pshape „‚@shape#,x,y,Mm 

180 REM gshape ‚Eshape#,x,y 

170 REM und xshape ,‚@af,8rl,yi, Ashapes.xz, 
y2,n zur verfuegung gestellt 

200 MODE 1 

210 MEMORY &YFFFr adr=akAD0D:zeile=140 

220 FOR i=1 TO Zi 


230 sunmne-0 

240 FÜR j=1 TOD 1& 

250 READ bytes:bytesVÄALt"&'+byte$) 
250 FOKE adr ‚byte: summe=summetbytera 
dr=eadr+1i ; 

270 NEXT j 

280 READ checkıiF check >summe THEN PR 


INT"Data Fehler in Zeile"jzeilesEND 

290 NEXT i 

300 CALL 8.A0OO 

310 GOTD 540 

320 DATA 01,09,30,21,39,20,c3,di,bce,i1d,a 
0,02.3,34,20,c03,44,1880 

330 DATA 20,c.3,95,20,c3,28,a1,c3,3B,al,c 
53,41,01,47,53,49,2125 

540 DATA 4, So, -5,50,53,48,41,50,c5, 58, 5 
3,48,41,50, es, 47, 1575 

350 DATA a5, da, 50, 55,d4,535,57,00,00,00,0 
0,00,00,01,12,7e,11B1 

360 DATA 15,00,19,02,15,00,01,77 ,1a,fe,0 
4,cc,7#5,20,f8,03,1348 

370 DATA c0,21,81,20,70,23,72,23,71,dd,6 
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G,ür,dd,d&e,00,cd, 1704 
350 DATA d0,20,44,56,05,0d,58,04 ,la,3d,c 
8,08, 47 ,865,25,46,1721 
390 DATA 23,66,68,45,0b,13,73,d0,69,d4d,4 
5,79,70,38,1a,4f, 1849 
400 DATA 5, 12,22,77,13,2c,cc,i1e,al,10,f 
5,#l,7c,ch, ö8, 67,192& 
410 DATA =5,38,20,85,cd,15,21,18,=0,fb,c 
7,f2,07,c2,f5,20,2504 
420 DATA fe,06,c0,dd,8e5,dd,&8,00,10,66,0 
2,85,47,dd4,23,10,2130 
430 DATA fc ,dd,25,32,03,158,00,cd,45,20,d 
d,e1,81,dd,75,00,2233 
440 DATA dd,74,02,32,03,cd,3d,20,dd,®i,3 
2,03,c0,44,20,09,1975 
450 DATA 45,Cc5B,85,4c ,26,00,54,54,29,29 ,1 
4,29,29,29,59, 19, 1040 
460 DATA ed, Sb, eg, b1,19,7c ,26,07,67, 33,0 
b,b1,84,cb,18,30,2040 
470 DATA 02,c6,20,57,c9,57,dd,7e,00,dd,2 
S5,d4,25,782,05,d0, 19757 
450 DATA 21,10,21,85,6#,30,01,24,78,57,3 
2,45,20,7b,3d,c7,141& 


: 490 DATA 00,am,a6,b6,2#,7c,d6,40,67,7d,c 


6,90,6f ,d00,24,7c.,1956 

500 DATA #5,07,c0,7c ,06,08,67,-9,3d,c0,d 
d,566,01,1d,68,00,1987 

510 DATA cd,60,66,77,23,36,00,0.9,3d,c0ö,d 
d,78,00,cd ,5d,bb,1982 

520 DATA c7,d5,02,c0,cd,2a,a1,dd,7@,02,c 
d,2d,65,c9,00,00,2052 

530 REM hier werden die shapes erzaugt 
540 MODE 1:RESTÜRE 1000: READ x „yır=x\d 
550 FOR i=0 TO & 

560 shape$ (i } =CHR# (x) +STRINGF (H&y EHRE CO 
I): NEXT 

70 FOR sh=1 TO & 

580 FOR i=1 TO y 

570 READ daten$: IF LEN(daten#) <>x#4 
THEN ERROR 5 


00 FOR j=1 TO x 

610 hi=Orlo=0 

620 FOR k=1 T0 4 

630 pixel=VALtMID$ datens, (3-1) * 
Atk,t2)) AND S 

440 hi=hi#2+{pixel AND 1):1lo=1lo# 
Z+tpixel\2 


186 
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650 NEXT k B&0 PRINT"OK" 

60 MiD$ishapesteh) , (i-l)#x+tjtl, 1) 870 REM titelbild beim laden von baulder 
=CHR& (lo+1ö*hi} dash 2 

&70 IPSHAPE „@shape$ sh) „60,30 880 MODE 1 

680 NEXT 3 890 FOR a=si TO 20 STEP 2: !PSHAPE ‚Gshape$ 
#70 NEXT i (i) „a#i-4,2: IFSHAPE ‚üshapes# (2) „(ar1)#4-4 
7090 NEXT sh „25 NEXT a 

710 MODE 1 900 FOR a=i TO 20 STEP 2: IFSHAPE ,@shapef 


720 READ zn „yaxzn\d 

730 hand$=CHR$ (x ) +STRING$ (##y,CHR$1O)) 
740 FOR i=1 TU y 

READ daten$: IF LEN(daten$)<>x#4 TH 


(2) „axd4-4,45: IPSHAPE, @shapas (1) ,tarl)#4- 


4,46:NEXT a 
910 FÜR a=2 TO 11 STEP 2: !PSHAPE „@shape* 


750 (2) „O,a*4-2: IPSHAPE ,‚@shape$ (1) ,O,ta+i) #4 
EN ERROR 5 2: 1PEHAPE „@shapes$ (1) „76,a*4-2: IPSHAPE,@ 
760 FOR je=i TO shape$ (2) „76, (atl)#4-2:NEXT a 
770 hi=0:10=0 920 INK 3,20,10 
780 FOR k=1 TO 4 9730 LOCATE 15, 201PEN 3: PRINT"Loading..." 
790 pixnel=VAL (MID$ tdaten#, (j-i)#4+ :PEN 1 
k,1)) AND 3 940 LOCATE 19,9:PEN 3: PRINT"by":PEN 1 
800 hi=hi#2+tpixel AND 1}:lo=1lor#2+ 950 POKE LBICH, SO: POKE &BICF,&CCSPOKE &B 
pixal\2 \ 1D0 ,433 
810 NEXT k 960 LOCATE 5,6: PRINT"BOULDER DASH" 
820 MID$ (hands, (i-1)#n+j+1,1)=CHRE 1 970 POKE &BICF „BB: POKE &B1DO,KZZ: PEN 15 
o+rlörthi} :LOCÄATE 7, 14: PRINT"RamaSoft" 
850 !PSHAPE „@hand#,60,350 980 CHAIN MERGE"!BOLULDER DASH 2",10,DELE 
840 NEXT j TE 
BSO NEXT i 
790 REM datas fuer shapes 1340 DATA "0000033313300000"|1£&90 REM Spielfigur 
1000 DATA 16,1& 1350 REM Mauer 1700 DATA "0000000330000000" 
1010 REM Erde 1360 DATA "0000000000000000"| 1740 DATA "0093333333333000" 
1020 DATA "1011111222113331" 1770 DATA "OlZ131%001313130"| 1720 DATA "00600020220200000" 
1030 DATA "1341111121111101" 1380 DATA "0313131003131310"|1730 DATA "0000022222200000" | 
11040 BATA "1113111113331111" |1390 DATA "0131313001313130"| 1749 DATA "0000022002200000" | 
| 1050 DATA "1311011131111131" 1400 DATA "0313131003131310"| 1750 DATA "0000000220000000" | 
10640 DATA "1333111333112221" 1410 DATA "0222222002222220"| 1760 DATA "0001113113111000° | 
1070 DATA "1110222211333213" |1420 DATA "0222222002222220"|1770 DATA "0001101111011000" 
10980 DATA "1122202222231 101"|1430 DATA "O0060000006000000"| 1780 DATA "O0001101111011000° 
1090 DATA "3322233311221111" 1440 DATA "OO00000000000000"|1790 DATA "0O005501111033000" 
1100 DATA "12242131101272333"|41450 DATA "3130613131300131"| 1800 DATA "00022035550220009" | 
1110 DATA "221113331i1112211" 1460 DATA "1310031313100313"| 1810 DATA "0060001111000000° 
| 1320 DATA "1113111122213331" 1470 DATA "3130013131300131"| 1820 DATA "0000111001110000" 
1130 DATA "1333122112111103" 1486 DATA "1310031313100313"| 1830 DATA "0011100000011100" | 
1140 DATA "1110111113331111" 1490 DATA "2220022222200222"| 1840 DATA "05330090000000330" 
1150 DATA "411113111111411122" 1500 DATA "2220022222200222"| 1850 DATA "2220000000000222" 
1160 DATA "1333122210113332" 1510 DATA "O000000000000000*| 1860 REM Gegner 
1170 DATA "1111112133311111" 1520 REM Diamant 1870 DATA "3000000000000003" 
1180 REM Steine 1530 DATA "00000001 10000000"|18B0 DATA "1300006000000031 " 
1190 DATA "0000033311100000* |1540 DATA "0000041111100000"| 1890 DATA "21300000060000312" 
1200 DATA "O003313031111000" |1550 DATA "0000011111100000"| 1700 DATA "22130000000051 22" 
1210 DATA "0033313331111100" |1540 DATA "0002222222222000"| 1910 DATA "2233300000033322" 
1220 DATA "0333033033011110" 1570 DATA "0002222222222000"| 1920 DATA "2222130000312222" | 
1230 DATA "033331 1333113110" |1560 DATA "O333333333333ZIO"| 1930 DATA "22222130031 22222" 
12406 DATA "3313331310333311"|1590 DATA "OISI3IISISIII3II3I30"| 1940 DATA "3333335113333333" 
1250 DATA "3S331133313333331" |1400 DATA "0000000000000000"| 1950 DATA "ZIFI3I31133I3333" 
1260 DATA "3333130331130331" 1610 DATA "O000090000000000"| 1750 DATA "2222213003122222" 
1270 DATA "330333333333331%" 1620 DATA "0O333333333333330"| 1970 DATA "2222130000312222" 
1280 DATA "3331331133103313" 1630 DATA "O3S3SIIIII3I33III0"| 1780 DATA "22533300060033322" 
1290 DATA "333133033133130%" |1640 DATA "0002222222222000"| 19970 DATA "2213000000003122" 
| 1200 DATA "OZI1AZS1I331135%30" |1650 DATA "0002222222222000"| 2000 DATA "2130000000900312" 
1310 DATA "0333333313033330" |16&0 DATA "0000011111100000"!2010 DATA "1300000000000031" 
1320 DATA "0033110331133300" |1670 DATA "0000011111100000"| 2020 DATA "30000060000000053*" 
1330 DATA "O003333331333000" |16B0 DATA "00000001 10000000" |2030 REM hand 
[.] 
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50 REM datas fuer zpielfelder 
70 DATA 3,3,3,3,3,3,3, 3,3, 3,3, 3,3,34,3,35 


50 


3,3,3,3 
290 DATA 
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12,12 2070 DATA "000111010100" 2130 DATA 
"500000000000" 2100 DATA "911011101119" 2140 DATA "OCOOo1l111110" 
»O110G1100000" #110 DATA "Olil1l11111110" =2159 DATA "000001111110" 
"911101110000" 2120 DATA "OC111O11111O" zZ1&0 DATA "OOO0O001 11110" 
"O0O1110111000” 
CHECK V1:FRUEFSUMMEN: 410- 420: 497719 870- Bit: 7383 1550- 1340: 20010 1799- 18004 17922 
430- 440: 50404 B890- ‚900: 11302 1359- 13450: 12559 1B810- 1820: 19523 
ZEILENNR,r SUMMEN 450=- 460: 32314 910- 920: 50815 1370- 1380 20050 1830- 1840: 19715 
10- ZU: 47235 470- A680: 44763 930- 940: 404T0 1390- 1400: 20060 1850- 18650: 13509 
30- 40+ 37558 490- 500: 45928 950- 9850: 47172 1410- 1420r 20050 1870- 18980: 19459 
S0- 60: 55575 510” 5205 54419 970- 980: 83674 1430- 1440: 19508 1890- 1900: 19330 
Fü- BO: 926801 530- 540: 95720 790- 1000: 19343 1450- 1450: 200650 . 1F710- 1720: 200983 
F0- 100: 81059 550- 540: 30684 10910- 1020: 12037 1470- 1490: 20080 1930- 1940: 203358 
i10- 1720: 41429 - 570- 580: 17365 1030- 104301 199778 1400- 1500: 206080 19750- 1960: 2035& 
130- 140: 55093 590- #00: 25870 1050- 1060: 20097 1510- 1520r 14317 1970- 1780: 20085 
150- 180: 37080 610- 620: 29972 1070- 1080: 20134 1530- 1540: 17400 1990- 20004 19830 
170- 1B0s 39935 630- 440: 101058 1090- 1100: 20167 1550- 1560: 19807 2010- 20201 19649 
190- 200: 44551 B50- 460: 67347 1110- 11201 20133 1570- 1580: 20221 2030- 2040: 3398 
210- 2208: A096 670- &80: 48251 1130- 1140: 20041 1590- 1600: 19971 2050- 2040: 12546 
230- 240: 16822 690- 700: 4986 1150- 1150, 20103 1610- 1620: 17991 2070- 2080: 12618 
250- 240:114968 7i0- 720: 24437 1170- 1180: 13449 1830- 1540: 20221 2090- 2100: 12641 
270- 280: 13345 730- 7404 67945 1190- 1206: 17815 16850- 1Addı 197807 2110- 21204 12692 
290- Zößr PZ42B 750- 750: 17170 1210- 1720: 20005 1670- 1550: 19400 2130- 2140: 12459 
310=- 320: 24327 770- 7B0: 25710 1230- 1240: 20708 1&90- 1700; 18050 z2150- 2150: 12545 
320- 340: 2B851 770- 8001 83440 1250- 1260: 20354 1710- 1720: 19945 | --- mm nn 
350- 3601 34674 8Sio- B70: 15580 1270- 178501 20393 1730- 1740: 19739 BESAMTCHECKSUMME: 45893 
370- 3B0:; 46129. 830- 8401 24610 1290- 1300: 20301 1750- 17801 19715 & 
370- 400: 43559 856- Baßı 25797 4310- 1320: Zu221 1779- 1780: 19692 
T il 2. 250 DATA 3,2,2,4,4,0,0,0,0,0,0,0,0,0,0,0 
el £: 4,4,2,3 
E in DE EZ | 
| 240 DATA 3,4,4,4,2,2,0,0,0,0,0,0,0,0,0,4 
10 DIM spfel%120,12) ı4,4,4,3 
wis] ENT ”-1,2,3,2 250 DATA 524,4,4,2,4,4,0,0,0,0,0,0,0,4,4 
30 ENT -2,2,-2,2 „4,4,4,3 
40 DIM xste (50) ‚yste (50) „stfall% (50) 250 DATA 3,4,4,4,4,4,4,4,4,0,0,0,0,4,4,4 
50 DIM espfel?.(20,12) 4,4,4,3 
60 KEY 0,"goto 3220: sksz=rwmaintä)"+cHrs | 270 DATA 3,4,4,4,2,4,2,2,2,4,0,0,4,2,2,4 
133 »4,4,4,3 
zo GOTO 3220 250 DATA 3,5,3,3,35,3,3,3,3,334,3,343,3,3 


3,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0 


3,3,3,3 »0,0,0,3 

100 DATA 3,1,1,0,1,0,5,0,0,1,1,2,1,0,1,1 300 DATA 3,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0 
„1,1,4,3 +0,0,0,5 

110 DATA 3,1,1,0,1,2,0,4,2,1,1,4,1,2,1,2 ‚510 DATA 3,0,5,0,0,0,0,0,4,4,2,4,4,0,0,0 
„1,0,1,3 ‚0,0,0,3 

120 DATA 3,4,0,0,1,2,4, 2,2, 1y1s1,1,2,1,2 | 320 DATA 3,0,0,0,0,0,0,2,4,4,4,4,4,4,0,0 
1422158 ,0,0,0,3 

130 DATA 3,1,1,0,0,2,2,254y1y1y1y1y1,1,2 | D30_DATA 3,3,3,3,3,3,3, 343,3, 3, 3,343, 343 
142,1,5 ı3,3,.3,3 

140 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1 | 340 REM Level 3 

„1,2,1,3 j 2 DRIA 3,323,3,3,3,3.3,2.2,3,3,3,3,3,3 
150 DATA 3,1,4,1,1415,15154,1,2,1,1414,4 mr 
142,4,3 ı Eu Su.E 2.2 2.2 DE EZ 2.2 2.2 2.2 E02 Du 2 z Eu; ‚1 pe 3,4,4,2,3,0,0,0,0,0,0,0,0,0,0,0 
160 DATA 3,1,1,2,2,1,0,1,151y 2,15 2p1y1sl ee 

Re 370 DATA 3,2,4,4,3,0,0,0,0,0,0,0,0,0,0,0 
170 DATA 3,4y1,2,2415451p174n 251,2, 11,4 | 35243473 

„2,2,1,3 380 DATA 3,2,2,4,3,0,0,0,0,0,0,0,0,0,5,0 
180 DATA 3,1,14,4, 242,15 2424 242, 14 2yiylyl 3,444, 3 

„1,1,4,3 370 DATA 3,2,4,1,3,0,0,0,0,0,0,0,0,0,0,0 
170 DATA 3,4 u142u1y1y1gAglgig1ylpZuin sl 3,4,4,3 

ly1,1,3 400 DATA 3,2,4,2,3,0,0,0,0,0,0,2,0,0,0,0 
200 DATA 3,3,3,3,3,3, 343,34, 3,3434 343,343 3,4,2,3 

3434343 410 DATA 3,2,4,4,0,0,0,0,0,0,9,4,0,0,0,0 
210 REM Level 2 1374,23 

220 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 420 DATA 3,2,4,2,3,0,0,0,0,4,4,4,4,0,0,0 
435393,3413 3,4,2,3 


V86 


430 DATA 3,2,1,2,3,0,0,0,4,4,2,4,4,4,0,0 770 


3,4,4,3 


650 


440 DATA 3,2,4,4,3,0,0,4,2,4,2,2,4,4,2,0 780 


5,4,4,3 


770 


AS50 DATA 3,2,4,4,3,0,2,4,4,2,2,232,254,4 800 


‚0,4,2,3 


210 


460 DATA 3,3,3,3,343,3,3,3,3,3,3,3,3,3,3 | 820 


343,3, 3 
470 REM Level 4 


830 
840 


450 DATA 3,34,3,3434 3339341333934 373784 3, 3 sso 


23337345 


BO 


490 DATA 3,0,0,0,0,0,2,0,0,0,372,1,4,1,2 | 870 


„4, 14,2,5 


B80 


506 DATA 3,0,0,0,0,4,4,0,0,0,3,4,1y1,1;1 890 


‚251,2,5 


510 DATA 3,0,0,0,442,4,2,0,0,33 2,1, 174,1 


244,245 


Foo 


,y,0 
7109 


520 DATA 3,0,2,4,4,2,474, 242,314 13 241,4 | 920 


„1,1,1,3 


730 


530 DATA 3,0,4,45 4,454 Ay pl ai iptyiyiy! 940 


274,4,5 


750 


540 DATA 3,3,3,3,3433 34343434433, 343,343 760 


,3,3,3,3 


770 


550 DATA 3,2,432,4,15172,151,1,1,4,4,4,4 | 900 


‚4,4,0,3 


970 


560 DATA 3,2,1,2,1,2,4,1515,2,3,0,2,2,2,2 | .i000 


ı2,0,0,3 


1010 


570 DATA 3,4,4,2,5,2,2,4,1,2,3,0,0,4,4,4 1020 


‚4,4,2,5 


1030 


I. S80 DATA 3,2,1,4,1,4,1,1,1,4,3,0,0,0,2,0 1040 


‚0,0,0,3 


1059 


590. DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 | 10640 


3134,34, 3 
#060 REM Level 5 


1070 
1080 


510 DATA 3,3,3,3,3,3,3,3,3, 3,3434 3434343 1090 


343,343 


2.1,2,8 


Programme 


ON ievel GOSUB 1610,1620,1530,1640,1 


MODE 1 
SOUND 1,400,500,4,,2 
FÜR yZz=1 TO 12 
FÜR »Z2=1 TO 20 
READ spfelAix2,y2} 
NEXT «2 
NEXT y2 
yi-O:si=0 
FOR y=2 TO 49 STEF 4 
yi-yi+l 
FOR x=0 TO 79% STEF 4 
yi=zxitil:IF »i>20 THEN xi=t 
IFSHAPE „Sshapes (spfelä (ki ,yi!)ıx 


NEXT # 
NEXT y 
LOCATE 10, 1:PRINT"SPIELSZENE: "slevel 
ON level BOTD 950,780,1010,1040,1080 
x=7ı y=2:diamant=18 
stein%=0: dauer=4 
GOTO 1130 
x=Iı y=10: diamant=57 
stein“/=0: dauer=4 
GOTO 1130 
1=15: ya4: diamant=47 
steini=0:dauer=4 
GOTO 1130 
x=5: y-10:diamant=44 
stein%=0rdauer=4 
SOTO 1130 
REM hauptsteuerprogr amm 
EVERY 100,3 GOSUB 1470 
schmeanz=3: xx (1)=5ıyyll)säarnn (2IelO 


syytZjellssen Haeldıyy(3)e=3 
620 DATA 3,2,1515221,1,1,2,0,2,4,1y1y1,1 1100 


1110 


630 DATA 3,1,4,1,1,141,442,0,4, 2, 121,4, 6 1120 


ı2,141,3 


540 DATA Sul, 112,110 Aus 


„2,1,4,3 


1150 


1140 


&50 DATA 3si1yiglyig1y1y1,14 0,2415 8424151 1150 


241,1,5 


1180 


560 DATA 3,1, 251,654, 15141900 2p ala rs 1170 


»2,4,1,3 


1180 


870 DATA Zplylgiytgin2Ap2y On 2 1p132H1,2 | 11970 


1200 


E36 DATA Z,24AyLpiy1y15 1,57 0y1y1yAyiylsl | 1210 


„1,2,1,3 


1220 


690 DATA 3,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0 | 1230 


‚1,4,1,3 


1240 


700 DATA 3,250, Oy1yty1y1y14Ay1y1,1,1,8,0 1250 


‚0,1,1,3 


710 DATA 3,0,0,14131, 4, 141,641,1,4,1,1y i 


‚0,0,0,3 


343,235 

730 REM anfang spiel 
740 level=-i 

750 live=3 

7/60 hoelevel=5 
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1280 


y=F7ı yaßı diamant=i1}7 

stein#=0: dauer=4 

GOTO 1130 

IF schmeanz >30 THEN EVERY 100,3 GOSU 


B 1670 


tot=0 

axzKıAayzy 

J3=J30Y (0) 

IF j=1 THEN y-y-1 

IF j=2 THEN y=y+1 

IF j=4 THEN x=-1 

IF j=B THEN x=x<+1 

IF «>19? THEN x=19 

IF x<2 THEN x=2 

IF y<2 THEN y=2 

iF y>11 THEN y=11 

IF spfelätx „y}=4 THEN GOTO 1390 
IF »<>ax OR y<>ay THEN IF spfeläix, 


y-1)=2 THEN stein%=steini+tlıxste (stein) 


=yıysteisteinf)=y-lıstfallf (stein) =daue 
720 DATA 3,3,3, 353,3, 3,34, 3,3433, 34 34.243353 r 


1270 


IF stein%>O THEN FOR zahl=1 TO etei 


nkıstfallftzahl)=stfallätzahl)-i: IF stfa 
A1%tzahl)=0 THEN GOSUR 1440 ELSE NEXT 


1280 
1290 


FÜR verzose=1 TO 5SO:ıNEXT verzos 
IF tot=i THEN sxzs=REMAIN IF) :RETURN 
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‚Programme 


1300 IF spfelilx,y)<s>1 AND apfel (x ,y)<> 


‚SO AND spfelät(x,y)<>5 THEN xsaxr:y=ayıGOTO 


1330 
1316 spfelf(ax,ay)=0ispfeli (x ,y)=5 
1320 IF x<>ax OR yı>ay THEN SOUND 1,249, 
109,5,,,5 
1530 h$=shape$ (0) 
1340 IXSHAPE „@h$,ax#4-4 „ay#4-2,Gshape$ (5 
2,4, yad-2,0 
1350 !PSHAPE ‚@shapes (0) „ax#4-4 ,ayt4-2 
1350 IPSHAPE „üshapes (3) „„#4-4 yrä-2 
13709 GOTG 1150 
15580 REM diamant abfrage 
1390 zpfeli (x, ,y)=O 
1400 SOUND 2,100,10,& 
1410 AU Smanediamante -1:IF diamant=0 THEN 
lavel=level+i:ıIF leval>hoelevel THEN 5x 
sz=REMAIN (33: SQUND 1,284,45,5,,1:50DUND 2 
‚286,45,4,,2:50UND 4,288,45,53:3RETURN ELS 


-E 60T0 770 


2 


1420 
1430 


GOTO 1250 
REM felsbewegung 


1440 xsexste(zahl)ı ys=yste (zahl) 

1450 IF spfeliixs, ysti)<>O THEN 1550 
1450 !FSHAPE  @shape# (0) „s#4—4  ys#4-2,0 
1470 I! PSHAPE „Eshape# (2) „ns#4-4, (yst1)#4- 
2,0 

1380 SOUND 4,480,5,4,,,30 

1470 FOR asasıl TO 10:NEXT axa 

1500 spfelA (xs,ys)=0 

1519 spfelX (xs,ys+l)=2 

1520 IF spfelitxs,ys-1)=2 THEN ys=ys-1:6 
OTD 1480 

1550 ystelzahl)=yste(zahl}+1:60T0 1440 
1540 stein%=sstein%-1 

1550 RETURN 

1560 IF spfel%ixes,ys+ti)=5 THEN 1800 

1570 IF spfelf(xs,ys+1)<>6 THEN RETURN 
1580 pu=pu+r200 

1590 GOTO 1450 

1600 ENV 8,=11,5000: SOUND 1, 0,60,14,8,0, 


15:5185z=REMAIN (3) SLOCATE 13, 1S:PRINT"GAM 
E DVER":SOUND 1,0,500,5,,1: FOR a=1 TO 50 
OO:NEXT aıSDUND 1,0,2,1:tot=i3RETURN 
1810 RESTORE 90: RETURN 

1220 RESTÜRE 2206: RETURN 

1850 RESTORE 350:RETURN ° 

1540 RESTORE 480: RETURN 

1650 RESTÜRE &10: RETURN 

1550 REM schmetteriingbewegung 

1670 FÜR a=1 T0 schmearnz 

1680 aux falenx (a)sayyla)zyyta) 

1890 IF x>ax (a) THEN xx (a)exx (a)+1:G0T0O 
1730 
17090 
1730 
1710 
1730 
1720 IF 
1730 IF 
RETURN 
1740 IF 


IF x<xx ta) THEN xt ta)enx (a)=-1:G070 
IF y<yytia) THEN yylalsyyfa)-1:G0T0 


y>yyia) THEN yy(a)eyyta)+l 
spfelAixx ta), ,yytla))=5 THEN tot=1 


spfelAinxta) ,yyta))<>O THEN xt 


Compute mib 





alzaxx (a)ıyylal=ayylal 
17509 I PSHAPE  ‚@shape# {0} „axı (a)#4-A,ayyla | 
I3#4-2,0 

1780 IFSHAPE „@shape$t6} ‚un {a)#4-4,yyla)ık 
4-2,0 
1770 
1750 
1790 
1860 
i810 


spfeli taxx (a) „ayyla))=o 
spfelä(xxita),yyta))=s 

NEXT 

RETURN 

REM gamsdesigner 

1820 z#lıy=tL 

1836 FÜR y=1 TO 1i2:FOR x=1 TO 20r5pfel%t 
*,y)=0:NEXT x:NEXT y 

1830 xmlıy=1 

1850 MODE 1 

1840 FOR x=i1 TO 20: epfeläi tk ‚„V)=3respfel 
(x y)=3: 1! PSHAPE „@shape# (3) „#44 ,y#4-2,0 
ıNEXT x 

1870 y=12:FOR x=1 TO 20:spfel% tx ,y)=Sıes 
pfeläix ,y}l=3: !PSHAPE  „@shapest3) ‚wud-4,y% 
4-2,0ı1NEXT x 

1880 FOR y=2 TO Ilsspfel% (1 ,y}=3tespfell 
{1,y)=3ı ıPSHÄPE „@shape$ (3) , 184-4 ,y#r4-2ı5 
pfel#t20,y)=3Sıespfel% (20,y)=3: 1 PSHAPE „@s 
hape# (3) „20#4-4 ,y*4-2: NEXT y 3 
1590 MODE 1 N 

1900 LOEATE 9,BıFRINT CHR$ (24) 5 "1" CHRSL 
24)5" EDITOR" ü 

1710 LDEATE 7,2:PRINT ECHR$ (24) 3 "Game-Des 
igner "sCHRE (243 

1920 LOCATE 7,11:PRINT EHRS$ (24) 5 "2"; CHR& 
(24)3" LADEN" 

1730 LOCATE 9,14: PRINT CHRS (24) 3 "I" ICHR$ 
(24)3" SPEICHERN" 

1940 LOCATE 9,17:PRINT CHREF (24) 3 "4"; CHR$ 
(24)3" SPIELEN" 

1950 LDCEATE 9,20: PRINT CHR$ (24) 5 "5"; CHRE$ 
{24)5" ENDE" 


1950 as=INkKEYS$: IF as="" THEN 1960 
. 1970 IF as="1" THEN 2030 

1980 IF a$="2" THEN 2240 

iF90 IF as="3" THEN 2440 

2000 IF af="4" THEN 2880 

2010 IF a%$="5" THEN 3220 ELSE 19650 

2020 REM editor 

2030 MODE i 

2040 durchlaufsdurchlauf+1 

2050 LGCEATE 17,3: PRINT CHRE (24) 3 "EDITOR" 

»CHRE& (24) 


2060 LÜCATE 3,9: PRINT CHR$ (24) 5 "O"HCHRE 
24) 3 !FSHAPE „@shapes (0), 10,18,0 

2070 LOCATE 12,6:PRINT CHRS (24) 5 "1" CHRS 
(24) 2 !PSHAPE ‚@shape$s(1),29,12,0 

2080 LOCATE 12,94 FRINT CHRS$ (24) 4 "2" sCHRS$ 
(24) : !PSHAPE ‚@shape$ (2) „28, 18,0 

2070 LOCATE i2,12:PRINT CHR$ (243 3 "3"; CHR 
#124): !PSHAPE ,‚@shape$ (3) „28,24,0 


2100 LOCATE 21,63PRINT CHR$ (24) 5 "4"; 
(24) : IPSHAPE ‚@shape$ (4) „46,12,0 
2110 LOCATE 21,9: PRINT CHR$ (24) 3 "5" ;CHR$ 
(24): }PSHAPE „@shape$ (5) „46,18,0 

2120 LOCATE 21,12: FRINT CHR$ (24) "6"; CHR 


weiter Seite 57 | 


CHR& 
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Bewerbung als Programmautor 


Name: __ 0000 Vorname: 


Straße: ANOH TION ap Er ea re 





Titel des Programmes: ___—_—————  _  — — — __ _ ____ Computersystem: 
Erforderlicher Speicherplatz: KBytes 
Erforderliche Pheripherie: 


Ich versichere hiermit, daß ich der Autor desoben genannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, daß Sie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: ________ Diskette ___—_____—_ Dokumentation; ___———. Listing ___——————— Rückporto: 


Unterschrift des Programmautors: 


Einsenden an: Tronic-Verlag = Programmentwicklung, Landstraße 29, 3444 Wehretal 1 


*“ ‚Kleinanzeigen * 


Auftrag für Gelegenheitsanzeigen in „Gompute mit... 


Name und Adresse 


An „Compute mit ..: 
Tronic-Verlag 
Postfach 

3444 Wehretal 1 


Unterschrift 


Unter der Rubrik „Kieinanzeigen“- Ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- 

anzeigen für Verkaufsangebote, 

Kauf- und Tauschgesuche, Kon-. 

taktaufnahme bzw. Erfahrungs- 

austausch usw. 


Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 
(dürfen nicht unter Chiffre erschei- 
nen) 

Eine Veröffentlichung erfolgt nur 


ij A 
gegen Vorkasse! Zutreffendes ankreuzen 


Kleinanzeigen jetzt suche Ö Software suche U Hardware OÖ Tausch O Versch. 
noch preiswerter biete an OD Software . biete an © Hardware O Kontakte © Chiffre 





186 3 Compubhe mib | we> 
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Biete software 


Sensation! iinser brandneuer Katalog ist dal 
Mit viel Hard- & Software für Ihren C 647128 / 
VE 20! Supersonderangebote: Spiele, 
Adventures, Utilities, User, Interfaces, Acces- 
soires u.v.m.! Z.B.: DFU-Interface, Disc Aid, 
Thermocontrol, Superacstion mit White Shark 
eto.! Gleich anfordern gegen 1,60 DM in Mar- 
ken bei: Comp Versand U. Tiedau, a. d. 
Ölmühle 24, 4270 Dorsten 1. 


GESTRICHEN... haben wirfast alle Software- 
preise {z.B. CYRUS 1 3-D Schach DM 41,90) 
u. das Angebot auf über 140 Artikelerweitert! 
Die Mitgliedschaft ist immer noch für 20,-—-/ 
Halbjahr zu haben!! COMPI-CLUB, J. Heise, 
A.d. Linde 8, 5226 Reichshof. 


EZ ZI ZZ SZ EI ZI ES; 
* SCHNEIDER CPC 464/664 

%* Univers. Ein/Ausgabe-Interface 32 Bit 
%* TTL. Zum Anschl. vielseit. Hardware a. 
* GPC. z.B. A/D Wandler, Relais, Roboter, 
Schul-Eisenbahn-Discoelectr, od. 
MälL. Zubehör. Ausf. Bedien.-Anl. Eig- 
nes Netzteil. Programmierb. in Basic 
od. Asemml. interupttaugl* DM 198 
EPROMPROGRAMMIERGERÄT an E/ 
A-Interface anschließb. f. 2716-27128, 
2516-2564 m. komfort. Bedienersoftw. 
28pol. Textoolsock. vorber. f. 27256. 
Maschinenspr.-Monitor. Lesen, Leert. 
Programm. Vergleich. v. Eprom’s * DM 
178 Mä&L-Maximiniälichter, Hauptstr. 
%* 1a, 5511 Mannebach, T. 06581/3535 
WR rer er 


Kr 
KEEEEE 


BACKUP: Disketten-Kopierprogramm für 
CPC 464 mit Vortex 512 K Erweiterung. Wie 
Discopy, jedoch ohne GP/M und in nureinem 
Durchgang. Für 20 DM (Brief), inkl. Anleitung, 
Porto und Verpackung von W. Spütz, Eyllier- 
Str. 225, 4132 Kamp-Lintfort. 


COMMODORE 16/116: Wir haben die Pro- 
gramme, die Sie suchen! Infos kostenlos bei: 
Andreas Bachler, Blücherstr 24, 4290 
Bocholt. Außerdem: Die © 16/116 Insider- 
Mappe für 6,-—- DM oder das Überraschungs- 
paket mit 5 Top-Spielen für nur 15 DM (Bitte 
nur als Schein oder Scheck beilegen!} 





C-16/116 20 Programme, C-16/116 20 
Spiel- und Anwenderprogramme für nur X 
20 DM *. Je Programm nur 1 Mark. 

Scheck oder Schein an: Daniel Beitlich, Klei- 
ne Höllbergstraße 6, 6000 Frankfurt 50. 


Oder Info anfordern gegen Porto. 


Funkfernschreibprogramm für CPC 464 
{RFTY). Soft- und Hardware incl. Konverter, 
AFSK, Festtext-Drucker und Empfangsspei- 
cher. Baudot und ASCII bis 200 Bard. 
Machen Sie Ihren CPC zum prof. Fernschrei- 
ber. Anwendung z.B. beim Amateurfunk. Info 
kostenlos bei: Stefan Peim, Soft- und Hard- 
ware, Friedrichsruher Str. 32, 1000 Berlin 33, 
Tel. 030/8242943, 


Commodore 64/20 + Schneider CPC 464: 
Supergünstige Programme zu Taschengeld- 
preisen! Kaufen Sie bei den Profis, denn wir 
sind. exelusiv und günstig! Infos kostenlos: 
Andreas Bachler, Blücherstr 24, 4290 
Bocholt. Programme für: Schneider GPC 464 
Commodore 64/207/16/116. 


Commodore 64, VC 20 C 16. Fibu, EK-VK, 
Foto-, Film-, Video-, Musikarchiv, Lotto, 
Adress, 'YSP, Tabello, Digitalo, Lernpro- 
gramme, Denktraining, Spiele, Karteikasten, 
Biblo, KFZ-Programme u.v.m. schon ab 19,90 
DM! Katalog gegen 80 Pf. in Briefmarken, 
Tino Hofstedes Computerservice. A.d. Wind- 
mühle 8, 5010 Bergheim 5. 


98C 16/C 116@69C 16/C 11680 @ 


Biete Vokabel Drill Sergeant (Vokabellern- 
programm) keine Raubkople! 06686 
Tobias Brandt, Alte Trift 38, 2150 Buxtehude. 
Nur auf Kassette lieferbar 88 0 8 60 @ 
Preis: 10 DM (Schein)!!! PS: Info liegt bei. 


© 16, GC 116, Plus 4. An alle Floppybesitzer: 
Habe das Adressenverarbeitungspr. Bis zu 
2000 Adressen abspeichern möglich. 26 
Dateien auf Diskette. Adressensuchroutine 
+ Verändern + Löschen. ka 10 DM ind 
mit Disketten #%% bei: Alexander Füngling, 
Vor den Knäppen 30, 4410 Warendorf 1, Tel.: 
0251/1022. 


Für CPC 464: ca. 20 Original-Spiele, Topcalc 
undandere Textprogramme, dt. Anleitungen, 
VB 180,-. Peter Stange, 5800 Hagen, In der 
Senke 20. 





Programme für die Arztpraxis 
auf dem Schneider Gomputer 
Privatliquidation - Leistung-Statistik 
Abrechnung-Unterstützung 


Info bei: Fa. EFFEKTA 
Am Wiggert 9c, 4500 Osnabrück 
Telefon (0541) 4 59 16 


Einmalige Gelegenheit f. VC-20. Ich verk. 11 
org. Spielecassett. z. B. Kegeln, Luftkampf, 
Ufo etc... (Preis 50,- DM) + 2 Spielhallen 
Module (Hau den Lukas, Pole Posit.) NP: pro 
Stck. 98,-/VP: pro Stck. 40,- + Vbk. z. Cas- 
settenrecorder und VC-20 (Preis: 30,- DM). 
Schreibt an: Bernd Failner, Birkensteingasse 
2, 8563 Schnaittach. 


Beachten $ie bitte auch die 
letzten Restangehote von 
unseren 


Top-Hit- 


Programm- 
paketen 


auf Seite 31 dieser Ausgabe. 


VC-20 Programme, z.B. Boeing 727-Simula- 
tor. Angebote auch Tel. 02324/61862, 
sonst. geg. frankierten Umschl,, Horst Quer- 
furt, Postf. 843042, 4320 Hattingen 14. 


A 
Achtung!! VC-20-Besitzer. Das ein- % 
malige Angebot! DerVC-20 istnoch * 

%* tangenicht outl!info DM5,-inBrief- %* 

%* marken! 40/80-Zeichenkarte 120 %* 

%* DM, $4 Kb + Steuerep, ohne geh, * 

* nur 120 DM, 32Kb + geh. nur 130 #* 

%* DM! DFÜ mit dem VC -,.20 jetzt %* 

* zugreifen. HPT Electronic, Am Rain * 

%* 23,8024 Deisenhofen. Ei 

LES ES SZEZS EZ ZELL ZT, 
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| Suche Software 


VC-20 Suche quite Software (GV > 16 K}!! 
Vor allem das Spiel „Miner 2049* und andere 
Actionspiele und Adventures!! Suche außer- 
dem guterhaltene A4D-Zeichenkarte!! 
Adresse; Stefan Schaum, In der Burgweid 
1A, 5110 Alsdorf. 


Suche Software für C 64, C 128 und CPM. 
Verkaufe oder tausche Bücher # C 64 für 
Technik + Wissenschaft 30,- # Das große 
Druckerbuch 30,- #Basic auf dem 6 64 30, 
* Beherrschen Sie Ihren C 64 10,- #64 Pro- 
gramme für den C 64 20,- %# Suche s/w- 
Monitor, Fischertechnik Computing Bauka- 
sten und Interface. *# Christoph Franzen, 
Bonifatiusstr. 79, 4130 Moers-Asberg. 


Biete Hardware 






















kııksı VERKAUFE C-116 uchhr 
ir * mit Joyst. und Cassettenrekorder # 
"x mit drei Spielen vr 
w% 3 Monate alt und Garantie 2% 
"“r nur für 250 DM vr 
’r# Bitte melden bei: Lorenz Witte # 
#ır  Eitviller Str 2, 6229 Kiedrich vc# 
re | SCHNELL kuhı 


Verkaufe Drucker Seikosha GP-100A für 
300 DM - 9 Monate alt -. Suche Biorhyfh- 
mus-Programm für Bildschirm und Drucker. 
Stefan Kleist, Schulweg 8, 6696 Nonnweiler. 





Verkaufe C-16 
Neu mit Datassefte. Tel. 
73498, 







02402/ 


G&S Computerservice, Rudi Gutemann u. 
Dieter Schulz, Soft- u. Hardware C-64. Unser 
Angebot: Farbb. Epson 80, 801, 802 je 15,95, 
Disketten 3. 50 St. 10er Box 39,50, Abdeck- 
haube 12,25, Lüfter 37,90, Box 85 Disk. m. 
Schtoß 35,50, Diskettenioch. 12,95, Eprom- 
brenner kpl. 159,00. D. Schulz, Funkensir. 42, 
5020 Frechen, Tel.: 02234/57848, Katalog 
kostenios. j 
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krkk SENSATIONELL: Zusatzlaufwerke für 
Schneider CPC-464 und CPC-664 weririch 
im Gehäuse und mit allen Kabeln 5'/,” / 
40 Track / einseitig 549,- DM X 3” /40 Track / 
einseitig 399,- DM 
KDB-COMPUTER-VERSAND, Kornstraße 28, 
5800 Hagen 7, Tel. 023317400601 





Verk.: Mairix-Drucker GP 500 CPC DM 300 
Suche: Floppy DDI-1 0. a. sowie Anwender- 
software (z. B. Buchhaltung/Lohnabrech- 
nung /Grafik etc.). 

Klaus Bartram, Kfm.-Büro, Haardtwaldstraße 
1-7, 6000 Frankfurt 71, Tel. (069) 6702230. 


VC-20 ++ Supererweiterung ++ 3k++16K 
+ Datasette + Joystick + Spielmoduie + 
Spielcasseiten + Basicselbstiernkurs + 
2 Bücher + viele Computerzeitschriften. 

Ark billig!!! vr billig!!! Weir 
Angebote an M. Ottiger, m Trübacker 5, 8609 
Dübendorf - SCHWEIZ. 


Biete CPC 464 mit Grünmonitor für 650 DM, 6 
Monate alt und Schneider-Matrix-Drucker. 
NLQ 401 — Neu — originalverpackt mit 
Garantie für 700 DM. 


Adresse; Plein Markus, Hackländer Sir. 23, | 


5000 Köln 30, Tel. 0221/5503491. 


VC-20 zu verkaufen. + Datasette + Spiele 14, 
Tasche und Lernbuch zu melden bei: Eimar 
Thews, Am Lahrkreuz 5, 5750 Menden 1. 

>» 2» 5» Nuır2000M ea « 
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Suche guterhaltenen C-64 mit Floppy evil. 


Programmen. 

| Angebote an: ; 
| Thomas Kesselring | 
=) Bismarckstr. 23 u 
| 8710 Kitzingen | 
u Tel.: 09321/5643 m 


77? Help ? ? ? Hilfe ? 7? ? Heip 7? 7 
Suche dringend gebrauchten C-64 mit Flop- 
py-Laufwerk. 

Angebote an H. Kästle, Marktstraße, 3440 
Eschwege oder telef. unter 05651/50685 
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PREISWERT GESUCHT: 

C 64, Floppy 1541 und Disketten-Soft- 
ware hierfür. 
Wacholderweg 4, 3006 Burgwedel 1 
Dr. Peer-Ingo Litschke 


Kir ir VC=-20 3% Ye VC-20 Yı ı VC-20 Ye 
Suche intakte Floppy. Biete 150 DM. Für ' 
defekte Floppy zahle ich bis 80 DM. HELP! 
Wer kann mir eine Graphik nach Poster-Vor- 
lage für die GV erstetlen??? Zahle 30-50 DM 
für laufendes PG Frohe Weihnachten u. Pro- 
sit Neujahr ®# ;: # Adresse: Albert Wirtz, 
Johannis Sir. 2; 5180 Eschweiler. 


Verschiedenes 





Herzlichen Glückwunsch!! Zu 1 Jahr GSOMPI- 
CLUB und über 210 Mitgliedern graiulieren . 
die Leiter der User-Gruppen Nord, Süd u. 
Westfalen! 


kkw% VC-20-Besitzer sucht: whrh* 
Schaltpläne zum VCG-20 und allem was dazu- 
gehört (Erweiterungen, Datasetie usw.) und 
sonstige Schaltungen z. B. Stimmverzerrer, 
Lichtorget, Hallgerät, usw. Suche VG-20- 
Besitzer zwecks Tausch im Raum Aachen!! 

Zuschriften an: Albert Wirtz, Johannis Str. 2, 
ıırr 5180 Eschweiler kih* 


WerhatErfahrung mitdemC 16 und der 64K 
RAM-Erweiterung von KING-SOFT? Wie 
errechne ich über Monitor den RAM-Bereich 
von HEX 8000 aufwärts? Wer kann mir behil- 
lich sein bei der Verwendung des Druckers 
SEIKOSHA GP 500 VC zum Grafikdruck? 
Tausche auch kleine Programme (Selbstent- 
würfe). Rainer Hickel, Mullbergerstr. 115, 
2964 Wiesmoor. 





CPC 464, Tausche Programme aus den 
Bereichen: Spiele, Büro, Schule, Musik, 
Technik, Hilfsprogr. für CPC 464. Liste für 1 
DM in Marken bei Helmut Jacob, Max-Gruhl- 
Straße 4, 5802 Wetter-Wengern; kein Ver- 
kauf, keine Raubkopien, Bestand etwa 300 
Programme; senden Sie Ihre Liste, entfällt 
meine Listengebühr v. DM 1,- 





Fehlerhafte Listings 


Ich finde es eine bodenlose Frechheit wie 
Sie mit Ihren Lesern umspringen. Für den 
C-16 habe ich jetzt schon 6 Spiele abge- 
tppt und keines funktionierte. Aber eines 
muß man Ihnen lassen, Sie haben immer 
schöne Absturzbilder. Mein Freund besitzt 
den VG-20 und bei ihm klappt (Ok Wun- 
der) sogar der Vorspann. Eines ist uns 
klargeworden, Sie wollen nur Geld schef- 
fein? Sie haben von der Materie keine Ah- 
nung! Sonst wüßten Sie, daß man Spiele 
für den C16/116 auch auf dem Plus 4 ab- 
spielen kann. Denn beide haben BASIC 
3.5, nur-der Speicher ist größer beim Plus 
4. Ihre Programme habe ich fehlerfrei ab- 
getippt. Mein Freund und ich kaufen Ihre 
Zeitschrift nicht mehr und warnen auch 
alle anderen Leser. 

Manuel Janes. Lüdenscheid 

PS.: Diesen Brief werden Sie sowieso nicht 
abdrucken! 


Redaktion; Zunächsteinmal haben wir Ih- 
ren Brief doch abgedruckt, obwohl der 
Brief natürlich eine ganze Reihe von Vor- 
würfen und Inkompetenz enthält. Aber wir 
möchten auch zu kritischen Leserbriefen 
Stellung nehmen und alle Leser ermun- 
tern, uns Ihre Probleme mitzuteilen. 

Die von Ihnen abgetippten G-16 Program- 
me müssen mit Sicherheit noch einige 
Eingabefehler enthalten, da diese fehler- 
frei veröffentlicht wurden. Ebenfalis trifft 
dies auch für die VG-20 Programme Ihres 
Freundes zu, da sonst eine wahre Flut von 
Leserbriefen über nicht funktionierende 
Programme bei. uns eingegangen wäre. 
Die in Basic geschriebenen Programme 
des 616/116 laufen tatsächlich auf dem 


- Plus 4, da das Basic identisch ist. Werden 
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in den Programmen jedoch PEEK- und PO- 
KE-Befehle verwandt, läuft nichts mehr. 
Sie sehen also, ein wenig technisches 
Know-how und Erfahrung im Bereich der 
Homecomputer-Szene haben wir schon 
gesammelt. Im Übrigen ist eine Warnung 
der Leser immer nur erfolgreich, wenn die 


aufgestellten Behauptungen auch hieb- 
und stichfest belegt werden können. Na- 
türlich möchte sich aber auch unsere Re- 
daktion nicht ganz von Fehlern freispre- 
chen. Sollten noch mehr Leser Schwierig- 
keiten mit den Programmen haben, lassen 
Sie es uns wissen, wir helfen gern weiter. 


Probleme 


mit dem CPC-Checksummer 
Heute habe sich meine ersten Versuche 
mit dem CPS-Checksummer gefahren! 


Ich finde die SUPER! 


Leider habe ich Schwierigkeiten mit DE- 
LETE 56200. Wie kann ich das angehäng- 
te Programm löschen? 

Thomas Stöferle jun., Erbach-Ringingen 


Redaktion: 

Bei genauem hinsehen erkennen Sie, daß 
Ihnen ein Zahlendreher unterlaufen ist. 
Um den Checksummer wieder zu löschen, 
gegen Sie folgenden Befehl ein: DELETE 
65200 -. Der Bindestrich darf nicht ver- 
gessen werden. 


Maschinenspracheprogramme 
für VC-20 


Ich bin begeisterter Leser Ihrer Zeitschrift 
und habe eine Bitte. In Ihrer Zeitschrift 
sind pro Ausgabe mindestens 2 VG-20 
Spiele abgedruckt: Ich würde es begrü- 
Ben, alle Spiele mit einer geschwindig- 
keitsbestimmenden Maschinensprache- 
routine abzutippen. Ansonsten ist Ihre 
Zeitschrift spitze. 

Jürgen Gmeiner, Würselen 


Redaktion: Vielen Dank für das dicke Lob 
unserer Zeitschrift. Unsere Redaktion 
plant in den künftigen Ausgaben sogar 
noch eine Erweiterung der Programman- 
gebote für den VC-20. Zu Ihrer Bitte mit 
den Maschinenspracheroutinen müssen 
wir Ihnen sagen, daß dies natürlich von 
den einzelnen Programmautoren bei der 
Entwicklung Ihrer Software berücksich- 
tigt werden muß. Bei unserer Auswahl der 
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Programme wird diese Tatsache jedoch 
meistens berücksichtigt. 


Programmfehler in „SUPER- 
BREAK-OUT“ aus Heft 11/85 


Nachdem ich das Programm mit „RUN“ 
starte erscheint „Maschinen-Data-Error“. 
Gebe ich nun „CONT“ ein, erscheint das 
Spielbild. Nach Abfrage der Spielstärke 
beginnt das Spiel, jedoch werden weder | 
Punkte gezählt, noch Steine zerstört. Wo- 
ran liegt das? 

Thomas Martin, Saarbrücken-Dudweiler 


Redaktion: Das von Ihnen erwähnte Pro- 
gramm wurde vollkommen fehlerfrei ver- 
öffentlicht. Die bei Ihnen aufgetretene 
Fehlermeldung ist ein deutlicher Hinweis 
auf einen Tippfehler bei der Eingabe. In 
sotchen Fällen darf aufkeinen Fall der Be- 
fehl CONT verwandt werden, da der Fehler 
auf diese Weise nur zeitiich verschoben 
wird. Überprüfen Sie also nochmals sorg- 
fäitig Ihr Programm auf Eingabefehler. 


Reverse Zeichen auf dem G-16/116 


Anfrage: Wie bekomme ich die, bei dem 
Programm „City-Runner“, beschriebenen 
reversen Zeichen auf den Bildschirm? 
Oder besser gesagt, wie bekomme ich 
überhaupt reverse Grafikzeichen in Ver- 
bindung mit einem Print auf den Bild- 
schirm? 

Thorsten Kup, Herne 

Redaktion: Reverse Steuerzeichen inner- 
halb von Listings sind Steuerzeichen, wel- 
che eine bestimmte Funktion oder Aufga- 
be erfüllen. Als Beispiel sind hier die Cur- 
sor-Tasten oder die CTRL-Taste in Verbin- 
dung mit der Farbumschaltung zu nen- 
nen. Diese Steuerzeichen können nur in- 
nerhalb von Anführungszeichen erzeugt 
werden und erscheinen dann auch auf 
dem Bildschirm oder Drucker. Sie müssen 
also darauf achten, daß vor dem Erzeugen 
dieser reversen Grafikzeichen, die Anfüh- 
Tungszeichen stehen müssen. 
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' 2290 
. 2300 
| 2310 


| 2340 


# (24): IPSHAPE ‚@shape$ (6) „46,24,0 


2130 a$=INKEY$: IF as="" THEN 2130 
2140 IF as="0" THEN symb=0:60T0 29700 
2150 IF a$="1" THEN symb=1:G0TO 2900 
2160 IF at="2" THEN symb=2:60T0 2900 
2170 IF a$="3" THEN symb=3:G60T0 2900 
Z1B0 IF a$="4" THEN symb=4: G0TÜ 2900 
21970 IF as="5" THEN symb=5:60T0 2700 
2200 IF a$="&5" THEN symb=4:60T0 2900 
2210 IF INKEY(18)3=0 THEN 1890 


2220 GOTO 2130 
22350 REM laden 
2240 MODE i 
2250 CLOSEIN: ELOSEQUT 
2260 LOCATE 17,3:3PRINT CHR& (24) 5; "LADEN"; 
CHRS& (24) 
2270 LCEATE 1,10: INPUT"Name des zu laden 
den Programms "iname$ 
2280 OPENIN names 
FOR sas=1 TO 12 
FÖR sb==1 TOD 20 
INPUT #9, ,espfel% (sbs ,„sas) 
NEXT sbs 
NEXT sas 
INPUT #9, ,ediamant 
INPUT #9,xxpo 
INPUT #7,yypo 
INPUT #97 ,eschmeanz 
IF eschmeanz<=0 THEN 2440 
FOR schme=i TO eschmeanz 
INPUT #9,xx22(schme} 
INPUT #7, ,yyZ2tschme) 
NEXT schne 
durchlauf=1 
ELOSEIN: SOTB 1890 
REM speichern 
2450 MODE 1 
2470 LOCATE 17,3:PRINT CHR$ (24) 5 "SPEICHE 
RN"SCHRE (ZA) 
2480 LOCATE 1,10: INPUT"Name des zu speic 
hernden Programms "inamer 
2490 DPENDUT names 
2500 FOR sas=i TOD 12 
2510 FOR sbs=1 TO 20 
2520 FRINT#F ,espfel# (sbs,sas) 
2530 NEXT sbs 
2540 NEXT sas 
2550 FRINT#F ,edianant 
Z560 PRINT#F,xxpo 
2570 PRINT#7,yypo 
PFRINT#? „eschneanz 
IF eschmeanz<=0 THEN 2640 
FOR schme=1 TO eschmeanz 
PRINT#7 ,xx2{schme} 
PRINT#? „yy2{schne) 
NEXT schme 
ECLDSEQUT:GOTO 1890 
REM spiel ueber gamedesigner 
MODE 1 
FOR sas=1 TD 12 
FOR ebsri TO 20 
spfelf isbs ,sag) =espfelftsbe,sas 


2320 
2330 


2350 
2340 
2370 
2350 
2390 
z400 
2410 
2420 
2430 
2440 
2450 
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programme 


) 

2700 
2710 
2720 
2730 
27830 


NEXT sbs 
NEXT sas 
tot=0 
hoslevel=1irlevel=i 
KZXXPOI y=YYPD 
27509 schmeanzreschmeanz 
27&0 IF schmeanz>ü THEN FOR schme=si TO & 
chmeanz : xx (schme) wxx2 tschme) ı yy{schme)=y 
v2tischnme}ıNEXT schme 
2775 dauer=4 
27560 stein%=Ö0 
2790 LOCATE 1i2,1:FRINT"SPIELSZENE: 
e> 
2800 FOR sas=1 TD 12 
Z810 FOR sbs=i1 TO 20 
2820 ıPSHÄPE „@shape$ (spfal% (sbs,,sas) 
) „sbsr4-4 ‚sast4-2,0 
2830 NEXT shbs 
2840 NEXT sas 
diamant=ediamant 
GOSUB 1130 
GOTO 18%0 
GOTO 2880 
REM aditor Fuer bildaufbau 
h$= a0 
MODE 1 
2920 FÜR sas=i TO 12: FÜR sbs=l TO 205 1P5 
HAPE „‚shape$ (sspfelf lebe, ,sas)) „sbard—4,5 
as#4-2,0 ; 
29330 NEXT sbs,sas 
2940 IF durchiaufe=1 THEN FOR yay=2 TO 11 


"anam 


":FOR xax=eZ2 TO 1Ffrespfeli (kan „yay)=synbıN 


EXT xax,yayıGODTO 2030 

zelıye2 

IPSHAPE „&hand$ ,»#4-4 ,y#4-2, 
hf=shapef (espfel ia ,y)) 

arKeXIayyay 

J=J0Yt0) 

IF INKEY(iBS)=0 THEN as="",G60T0 2030 
FÜR verzos=i TO 5O:NEXT verzoe 

3020 IF j=1 THEN y=y-1:50T0 3150 

j=2 THEN y=y+1:60T70 3150 

j=4 THEN x=x-1:00T0 3150 

j3=8 THEN x=x+1:60T0 3150 

j<>1ö& THEN GOTD 25790 
vuepfelAix,y)s=6& THEN BOTO 2950 
3080 IF espfelf(x,y}=4 THEN ediamant=edi 
amant-i 
3070 IF 
3100 IF 


sapfel%ix,y}=5 THEN GOTO 2780 
symb=4 THEN eschneanz=eschmeanz*+ 


1 

3110 IF symnb=6 THEN skZieschmeanz)exsyy2 
(eschmeanz)=y 

3120 IF symb=4 THEN ediamant=ediamant+i 
3130 IF symb=3 THEN »xpo=sk: yypa=y 

3140 sespfelii ix „yJzsymb 

3150 IF x»>19 THEN x=19 

3140 IF x<£Z THEN x=2 

31706 IF y>11 THEN y-il 

3180 IF y<2 THEN y=2 

3190 ıXSHAPE „hs, axx tdi, ayy%4-2, Ghand$, 
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programme 


x#4-4,y*4-2,4 





‚95,37,106,12,0,1,106,150,0,50,106,25,0, 





3200 G0TO 2970 1,106,25,119,25,134,25,142,25,157,25 
3210 REM titelbild 3650 DATA 134,25,142,25,0,1,142,100,159, 
3220 MODE 1 50,179,50,142,25,159,25,0,1,159,50,213,5 
3230 durchlauf=d Oo 
3240 schmeanz=0 3660 DATA 1797,50,142,25,0,1,142,25,0,1,1 
3250 eschmeanz=Ü 42,50,159,25,179,50,142,50,159,50,213,50 
3260 tot=0 j „177,50,142,25,0,1,142,25,0,1,142,100 
3270 ediamant=O 5470 DATA 0,1, 142, 100, 6, 1, 142, 100,104,50 
3280 INK 1,23:INK 0,0: INK 2,7:INK 3,11 ‚5,50,89, So, 95, 25, 106, 28 
3290 Bor »=1 TO 20 STEP 2 S5sB0 DATA 93,75,1058,25,119,50,1068,25,142 
33006 IFSHAPE ,@shape$ (3) ‚x#4-4,2,0 ‚25,0,1,142,200,0,1,142,100,0,1,142,100, 
3310 :!PSHAPE „@shape#(1) , (n+1)#4-4,2,0 105,50,95,50,89,50,95,25,106,25,95, 75,10 
3320 !PSHAPE ‚@shape$ (1) ,x#4-4,46,0 6,25,119,50,95,50,89,50,119,50,134,50,14 
3330 }PSHAPE „@shapes (3) , (x+1)#4-4,46,0 2,50 
3340 NEXT x 3670 DATA 0,0 
353509 FÜR y=2 TO 11 STEF 2 
33640 IPSHÄPE  „@shapet(t1),0,y#4-2,0 CHECK VIrFRUEFSUMMENs 1190- 12001 AB24S | 2470- 2480: 92768 
3370 IPSHAFE ‚@shape$ (3) „DO, (yr1) #4-2,0 ZEILENNR.ı SUMMEN 12200 es sion en Sa 
35809 IPSHAPE ,Gshapes (33,76, y#4-2,0 10- 20: 10954 | 1250- 12608 59455 | 2530- 2540: 8353 
5 PR, So- 40: 59292 1270- 1280: 44957 | 25590- 25805 18925 
Sa70> |EEBAFESUShARRELTI 7, Dr 2,0 50- 601 &6482 | 12#0- 13005100014 | 2570- 2500: 20554 
3400 NEXT y 70= 801 30437 | 1310- 13201 79506 | 25%0- 2400: 57789 
410 RESTORE 3500 90- 1003 81267 | 1330- 1340: 71859 | 26&10- 2620: 40311 
3420 schmeanz=0 110- 1204 80711 | 2250- 13601 14936 | ?430- 26404 7107 

130- 180: 81053 | 1370- 1350: 15418 | 2650- 2650: 34841 
3430 LOCATE 15,7:FRINT"BOULDER DASH"; 150- 1808 807855 | 1390- 14008 21500 | 2670- 24830: 20797 
3440 LOCATE 153,15:PRINT ECHRF(185433" by R 170- 1801 80999 | 1410- 1420: 31803 | 2690- 2706: 51865 
u, 190- 2001 81254 | 1450- 1440: 34069 | 2710- 2720: 7809 
amaSaft"; 210- 2201 44203 | 1450- 14402 59427 | 2730- 27404 62230 
3450 LOCATE 13,18:PRINT CHR$ 124), "SG" 4 CHR 230- 2401 80744 1470- 14808 37483 | 2750- 2760r 42112 
#124)3" fuer Game-Designer"; 250- 26401 Bl686 | 1490- 15001 45750 zen ur er 
3460 LOCATE 13,21: PRINT CHRS(24) "St schm 270 2BU Bier | a a Ta o- 2u201 30206 
#(24)53" fuer Spiel. 3 310- 320: 80627 | 1550- 1560: 44795 FE ae ee 
un z20- 3401 44212 | 1570- 15805 40833 S a 
3470 IF INKEYS<>"" THEN 3470 nal eos rangs rare | Zero zeaan zen 
S480 a$=INKEYSı IF a8©> THEN 3510 370=- 3801 B0741 1&10- 16203 4444 | 2370- 29001 31605 
3490 ON Sdt1) GOSUB 3550 390- 400: E0527 | 1530- 16401 4486 | 2710- 2720: 20584 
s810- 4201 80969 | 1650- 16501 31557 | 2730- 2940: 59059 
3300 GDTO 3480 430- 440: Bi#63 | 1&70- 18801 4822% | 2750- 2960: 67458 
3510 IF as="S" OR af="s" THEN x=1:y=1ıFüö 450- 4601 81769 | 1&90- 1700r 77072 | 2770- 27603 72967 
R a=i TO S000:NEXT arSOSUB 90stot=0:G0T0 470- Au0ı 46221 | 1710- 1720: 57989 | 2oıo- zonas Tasse 
3220 490- 500: 80798 17350- 1740: 597271 | zoag. 30408 
SIO- 5201 81141 | 1750- 17605119530 3040: 62422 
S520 GBOSURB 18720 520- 5401 81708 1770- 1780: 98829 SE ad es 
35350 REM melodie a ae m SEI: a Me 3090- 31001 84B1& 
3540 RESTORE 36400 . 390- 800: 44230 | 1830- 18401 1ssgz | 3110- 3120: 72263 
3550 READ ton,dauersIF dauer=0 THEN 3540 &10- #201 81538 | 1850- 18604 48107 | 2150. S1eo: 29126 
3560 SOUND 1,ton,dauer ‚& Eae Saas auorz | 170- 1A 100526 | Ki70- sıooı zuns 
3576 SOUND 2,ton+2,dauer „4 670- &B01 80748 | 1910- 1920 Basas | 3170 3200: 58425 
3580 SOUND 4,ton+4,dauer ‚2 690- 7001 BOIEZ | 1930- 1940: 86707 | 2550. a2a0ı zuase 
! 710- 7201 81260 | 1950- 1960: saano | 3230” 3240: 23435 
3590 RETURN 730- 7401 16535 | 1970- 1980: 21071 | 22,0 3260: 16857 
3600 DATA 159,25,179,25,0,1,179,150,0,50 750- 7401 18285 | 1990- 2000: ımı1 | J4L0_ Su00: 2275 
‚142,25,127,25,113,25,1068,25,95,25,89,25 220 dos ıloaa | nor 2020: Zi1!E | 3310- 3320: 101382 
‚75,37,106,12,0,1,106,150,0,50,106,25,0, 810- 820: 35249 | 2050- 2060: 52197 | 3420, 3340: 59715 
1,106,25,119,25,134,25,142,25,159,25 Ber ee Anne 2070- 2080: 51823 | 3770- 3390: 105081 
S6id DATA 134,25,142,25,0,1,142,100,159,  570- EB0: 2700 | zı10. 2120, zaoge | 3370” 34004 62578 
50,179,50,142,25,159,25,0,1,159,50,213,5 B90- 9001210677 | 2130- 21402 51026 | Jason zausı 11553 
F10- #201 4286 | 2150- 21601 Silil s 
0,177,50,142,25,0,1,142,25,0,1,142,100 930- 9401 65839 | 2170- 2100: e1zas ! uno Sra0ı 71615 
3620 DATA 159,25,179,25,0,1,179,150,0,50  #50- 9401 37476 | 2190- 22001 sızs7 | Szo, 3480: S00S1 
„142,25,127,25,113,25,1058,25,95,25,89,25 970- 980: 37293 | 2210- 22201 9501 | Ss10- 3920: 31384 
‚95,37,106,12,0,1,106,150,0,50,106,25,0, ‚27% ‚co: 204 | Zeo- zan0ı 2005 | s50- Sana: "So0s 
3530- 3540: 769753 
ı [) 104,25, 1197 254 134,25, 142,25, 159,25 1030- 10401 36941 =2270- 22603 399734 3579- 3580: 45150 
1050- 10503 24054 | 2290- 23001 20797 : 
3530 BETA 154,25,142,25,0,1,142,100,159, en 1: Be are en araga | 3570- 3600: 15531 
50,177,50,142,25,159,25,0,1,159,50,213,5 1090- 1100: 8585 | 2330- 23401 14748 | Seo” 5620: 9711 
0,179,50,142,25,0,1,142,25,0,1,142,100 1110- 11201 24054 | 2350- 23601 14095 | Tuso- 3660: 30317 
1130- 1140: 38029 | 2379-_2380%2 38737 E 

‚3640 DATA 159,25,179,25,0,1,177,150,0,50  1150- 1t60ı 25399 | 2390-"2400: #1792 | 3570- 3680: 27183 

‚142,25,127,25,113,25,106,25,95,25,89,25 - 1170- 11a0r 40263 | 2210- 24201 za904 | 67 > 700 1 
Zn Zar 15718 IBESANTCHECKSUMME: 2089 
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Der CPC 464 gibt uns die angenehme 
Möglichkeit, maximal 32 Tasten mit belie- 
bigen Ausdrücken zu belegen. 13 dieser 
Tasten liegen fest auf dem Zahten-Block 
(Bereich 128 bis 140), die anderen können 
frei auf die Schreibmaschinen-Tastatur 
gelegt werden (Bereich 141 bis 159). Für 
die Schreibmaschinen-Tastatur begibt 
man sich vorteilhafterweise auf die 
„GTRL'-Ebene; die Groß- und Kleinschrei- 
bung, wie sie normalerweise üblich ist, 
wird dann nicht beeinträchtigt. Eskönnen 
- wie in folgendem Programm - durchaus 
insgesamt 119 Zeichen auf die Tasten ge- 
legt werden; das Handbuch sagt: maxi- 
mal 100 Zeichen. 


Die Vorteile von BASIC-Befehlen auf den Funk- 
tionstasten, 

‚Sobald Sie sich an die Lage der BASIC- 
Befehle auf den Tasten gewöhnt haben, 
ersparen Sie sich beim Neu-Eintippen von 
Programmen ca. 50 % der Zeit. Außerdem 
kommen weniger Schreibfehler (SYNTAX 
ERROR) vor, was Ihnen ebenfalls beim 
Korrigieren (DEBUGGING) Zeit erspart. 
Insgesamt - so zeigt meine Erfahrung - 


Schreibmaschinen-Tastatur-Befehie 


kommt man mit BASIC-Befehlen auf den 
Funktions-Tasten ungefähr zweimal 
schneller zu seinem kompletten und feh- 
lerfreien Programm. 


Vorüberlegungen zur Belegung der Tasten. 
Um maximale Zeit beim Eintippen und 
Korrigieren zu sparen, suchte ich erst ein- 
mal die von mir am häufigsten benutzten 
Kommandos heraus. Diese Häufigkeit ist 
wohl je nach User unterschiedlich. Bei 
meiner Belegung können Sie erkennen, 
daß ich kaum Graphiken benutze und 
wohl noch weniger Töne. 

Aus der Tatsache, daß ich schreibmaschi- 
neschreiben kann, ergab sich dann, daß 
ich den Zahlenbiock voll belegte. (Man be- 
nötigt hier für einen Befehl nur einen Fin- 
ger.) Da sich die „CTRL’-Taste beim GPC 
464 rechts unten in der Schreibmaschi- 
nen-Tastatur befindet, kam für mich nur 
eine Belegung von Tasten in der linken 
Hälfte der Schreibmaschinen-Tastatur in 
Frage. (Mit der rechten Hand drückt man 
„CTRL, mit der linken eine Schreibma- 
schinen-Taste; dies geht recht schnell.) 
Schon daraus ergibtes sich, daß ich nicht 











auf die sonst übliche Praxis zurückgreifen 
konnte und auch nicht wollte, jeweils den 
Anfangsbuchstaben eines Befehls als die 
Beiehls-Taste (auf der „CTRL‘-Ebene) zu 
nehmen. Also nicht: „CTRL* und „L“ = 
„LIST“! 

Stattdessen zog ich es vor zusammenhän- 
gende Befehle nahe zusammen, am be- 
sten nebeneinander, auf die Tastatur zu le- 
gen. Und hierbei ging ich dann auch noch 
so vor: die am meisten benutzten Funk- 
tionstasten !iegen einmal unten und zum 
anderen mal auf dem Zahlenblock. Also: 
von allen Befehlen, die auf den Tasten lie- 
gen, liegen die, welche ich am wenigsten 
benutze, links oben auf der Schreibma- 
schinen-Tastatur  („auto“, „move“, 
„draw“). Diejenigen Befehle, die ich am 
häufigsten beim Eingeben eines neuen 
Programmes benutze, liegen unten auf 
dem Zahlen-Block; es sind: „eis“, „list“, 
„save“ & „run“. (Das bisherige „RUN“, 
welches ein Einlesen und Starten eines 
neuen Programmes hervorruft, ist hier oh- 
ne „“! Das fehlende Anführungszeichen 
(*) kann ja leicht durch „SHIFT“ und „2“ 
hinzugefügt werden.) 


2ZshlenbiackrBefen]e 
Dr en a a A m RD On au Fu am Be u a u a RE 
auto 75} maus cdirzw read data restore 
mode korder ink Paper pen on getan  aszuh 
if and or then else return locate input 
<z> for to “ten next ls ligt sau’ 
<CTRL>I run 


| Beschreibung der belegten Schreihmaschinen- 
Tasten. 

Die oberste Reihe der Schreibmaschinen- 
Tastatur erhält drei BASIG-Befehle: „au- 
to“, „move“ und „draw“. Hierbei ist jedoch 
die Taste „2“ ausgespart; hier liegt mit 
„GTRE* für meinen Drucker das „B". „Mo- 
ve“ und „draw“ können durch ein ange- 
hängtes „r“ in „mover“ und „drawr“ um- 
gewandeit bzw. erweitert werden. 

In der darunterliegenden Reihe von „Q“ 
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bis „T* liegen BASIC-Befehle, die einfache 
Bildschirm-Veränderungen bringen: „mo- 
de“, „border“, „ink“, „paper“ und „pen“. 
Durch ein Anhängen von „ey“ bzw. „ey$" 
kann man „ink“ zu „inkey* bzw. „inkey$“ 
erweitern. Die Reihe „A bis „G“ haben die 
Bedingungs-Befehle „if“, „and“, „Or“, 
„then“ und „else“ erhalten. Tippt man 
zuerst ein „x“ und dann „CTRL“ und 
erhält man zusätzlich „xor“, 

Auf „X“ bis „B* liegen die Zähl-Befehle 


Compuhe mi 
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„D F . 


„for“, „to“, „step“ und „next“, sie bilden ei- 


ne zählende Schleife. In dieser untersten 
Reihe der Schreibmaschinentasten habe 
ich bewußt das „Y“ ausgelassen, um eine 
gewünschte mögliche Anpassung der 
vorhandenen amerikanischen Tastatur an 
die deutsche DIN-Tastatur nicht unnötig zu 
erschweren; ebenso ist das „Z“ in der 
obersten Buchstabenreihe bewußt ausge- 
spart worden. 


werkstatt 







werkstatt __ 


Beschreibung der belegten Zahlenblock-Tasten. 


Auf den Tasten 7-9 liegen die DATA-Be- 
fehle „read“, „data“ und „restore*. Auf 4- 
6 sind „on“, „goto“ und „gosub“; links 
darunter auf 1 das dazugehörige „return“, 
Hier sind also die Sprung-Befehle. Jetzt 
folgen dann noch die von mir häufig be- 
nutzten Einzelbefehle. Auf 2 und 3: „loca- 
te" und „input“. Auf 0,.ENTER: „els“, „list“ 
und „save“. Und zum Schluß auf „CTRU 


und „ENTER“ das „run“ ohne Anfüh- 
rungszeichen ,“. 


Noch kurz eine Bemerkung: 

Ich habe alie BASIC-Befehle klein ge- 
schrieben, denn der GPG 464 schreibt sie 
in seinem Listing von selber groß, 
wenn ... er sie angenommen hat. Wenn 
Sie sich also eine Programmzeile auf dem 


Bildschirm ausgeben lassen, und ein BA- 


SIC-Befehl ist klein geschrieben, dann ist 


der Befehl eben vom CPC 464 nicht als 
-Befehl erkannt. Dann ist möglicherweise 
der Befehl selber falsch geschrieben, wie 
beispielsweise „prri“ statt „print“, oder es 
istein Zwischenraum, eine Leerstelle, ver- 
gessen worden wie etwa bei „inputa“, was 
„Input a“ geschrieben werden muß. Legt 
man also Befehle auf die Tasten des CPC 
464, sg empfiehit es sich immer - für ein 
schnelles DEBUGGING -, die Befehle in 
Kleinschrift auf die Tasten zu legen. 





> 'C.Hass: Basic-Befehle 200 FRINTEgG ,„"----7—- 2 
[#] E ee ee Teig eek ungen erhnzenginin led ai Antara Wr a ke Se Te 2 
so FÜR i=128 TO 140 216 FRINT#q, "auto 25 move draw 
40. RERD ası:ıKEY i,afzrIF i=137 THEN KEY i, read data restore" 
a$ + CHRS$ (33) 

50 NEXT 220 FRINT#g, "mode border ink paper 
&0 DATA cls,‚return ‚lIocate,input,on,goto, pen on ooto gosub". 
gasub ‚read ,data,restore ‚list ,‚save,run 230 FRINT#g,"if and or then 
70° f else return Iocsate input" 
50 FOR i=j41 TO 143 240 FRINT#gG,„"iz> for to step 
70 READ as,a,b#:KEY i,atsb=ASl tbr)sc=b+1 next cis list save’ '“ 
&:KEY DEF a,l,b,c,i 250 PRINTHg," 

00 NEXT <CTRL> run" 

110 DEIN autn,63,1,move ,57,3,draw,5s,4 260 IF g=B THEN END ELSE IF o=0 THEN g=8 
120 N | :G0OT0 190 

130 FOR i=144 TO 157 

140 FEAD a8,a,b&:KEY i ,atıb=ASCib#) ıc=b- 

S2:KEY DEF a,1,h,C,i 

150 NEXT 

160 DATA mode,67,9,border „59 ,w,ink,Sg,e, CHECK VISFRUERSUMMEN: Es ya 
en Een 5 150- 180: 77342 
paper, ‚F,pen,„ol,tzifg „a,and,sQ0,s,or, ZEILENNK.= SUMMEN 170- 180: 508 

61 ,d9,then „53,# ,else „52,9, for 563,x,10,62, 10- 20: 23975 i90- 200: 43797 

c- ‚step ,55,v,next,54,b Soz> N ABTISegH2 En ee, 

170 ’ S0- 80: 522309 730- 240: 9591& 

FO- 80: 10045 250- 2546:115351 

1506 MODE 2 90=7 21005 47405. 4, SEE 
190 PRINT#g,"Schreibmaschinen-Tastatur-B ae ee, 
efehle Zahlenblock-Befehle"” 
Programm-Beschreibung kann. (Sonst Belegung kopieren oder auf | Taste mit „SHIFT“ um 16 geringer sind als 


Dieses Programm kann leicht auf die 
Wünsche des jeweiligen Programmierers 
umgeschrieben werden; es besteht aus 
vier Teilen, wobei der letzte Teil (Zeile 190 
bis 260) auf dem Bildschirm die Tasten- 
Belegung darstellt. Istein Drucker vorhan- 
den, so kann dieser dann die Tastenbele- 
gung auf einen schmalen Streifen Papier 
ausdrucken, den man mit Klebeband 
leicht auf dem Keyboard oberhalb der 
Schreibmaschinen-Tasten befestigen 
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kariertem Papier abschreiben.) 

Die Belegung der Tasten erfolgtdurch drei 
verschiedene Schleifen. Die Codierung 
der Tasten des Zahlenblocks sind aus dem 
Handbuch ersichtlich; hier genügt das 
einfache „key“-Kommando. Für den Be- 
ieh! „save”“ wurde eine kurze „if"-Bedin- 
gung in Zeile 40 hinzugefügt, welche ‚’* 
an „save“ anhängt. (Zahlenblock-Tasten = 
Zeilen 30 bis 60.) 

Für die oberste Reihe der Schreibmaschi- 
nen-Tasten gilt, daß die ASCII-Werie eine 
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die der Taste ohne „SHIFT“. In den ande- 
ren Zeilen der Schreibmaschinentastatur 
ist der Differenzwert dagegen 32. Die DA- 
TA-Zeilen (Zeile 110 und 160) sind aber 
gleich aufgebaut: z. B.: auto,64,1. Und 
dies bedeutet: das Kommando „auto“ soll 
auf die Taste 64 kommen, welche unge- 
„shift“-etdas Zeichen „1“ ergibt, usw. Eine 
Modifizierung dieser Tastatur-Belegung 
oder eine völlige Umänderung istalso sehr 
leicht durch das Umändern der DATA-Zei- 
len möglich. 
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tips & tricks 


[__fos & Tricks für den Schneider 





| Tapefile/ Discfile {für Kassette und Diskette Mn verwenden} 


| Das Kopieren von Binären-Files bereitet beim Schneider CPC 
| leider immer ein paar Probleme. Zwar hat der Schneider-Com- 
| puter vorzügliche Befehle zum Laden und Abspeichern von be- 
liebigen Speicherbereichen, jedoch existiert kein Befehl zum 
| Feststellen von Startadresse und Länge eines schon abgespei- 
cherten Programmes, 
Das hier vorgestellte Programm macht nun diesem Manko ein 
Ende. 
Sie starten das Programm TABEFILE mit RUN und werden da- 
durch aufgefordert, eine Kassette einzulegen. Diesesbestätigen 
Sie durch das Betätigen der Taste PLAY und einer weiteren be- 
liebigen Taste. Nach kurzer Zeit erscheint die Meldung 
| „FOUND... auf dem Bildschirm. Ebenfalls einige Augenblicke 
später wird die Meldung "BLOCK OK“ ausgegeben. In diesem 
Augenblick betätigen Sie die Taste ESC. Dadurch werden die 
Startadresse, die Länge und die Art des Programmes angezeigt. 
Diese Daten können Sie nun zum Kopieren von dem entspre- 
chenden File verwenden. 


39- 402 


CHECK W1:FRUEFSUMMEN:e 1452 
50- 40: 33722 

ZEILENNA.: SUMMEN 7a 80: 94139 
10- z0: 45447 BS- 90: 49842 


10 *## tapefile ##% 
20 ° copyright frank brall 
30 


40 ON BREAK GOSUB 220 

SO CLS:PRINT"###* TAFEFILE ##*%* 
11" 

60 FRINT:FRINT 

7/0 FRINT"Kassette einlegen und nach der" 
80 FRINT"Meldung "OK" ESC ESC druecken ! 
":FRINT j 

85 : TAPE. IN 

70 EAT:STOP 

290° #%* ausnertung x## 

300 FRINTEFRINT:PEN 5: FRINT"Auswertung: " 
:PRINT 

SZ0 name$="":FOR i=47244 TO 47259 

530 namef=names+CHR& (FEEK {i)) NEXT i 


F.Era 


540 laenge= PEEK 147269) &2S&+FEEK (477408) 
3530 start = PEEK (47266) #?56+PEEK (47265) 
350 art =PEEK (47262) 

370 PRINT"Filename;s "namet 

586 FRINT"Startadr: "start 

370 FRINT"Laenge : "laenges" Bytes" 


400 FRINT=:FRINT"Art "arts" 
2 Binaer 22 Text)" 


(o/1 Basic 


290- 300: 44718 380- 3906: 57091 


320- 330: 93459 400= : 150970 
S40- 350:10977 1 mm nn 
5650- 370: Z1047 BESAMTECHECKSUMME: 57777 





| tion. 
| {CP/M 2.2 und erweitertes BASIC Disket- 


Die Floppy-Disk-Stationen F1-S (ingle = 
; 1 Laufwerk) und F1-D {ouble = ? Lauf- 
werke) sind hochwertige und leistungs- 
; starke Diskettenspeicher mit großer Spei- 
cherkapazität und hoher Datenübertra- 
gungsgeschwindigkeit. Verwendet wird 
die Standard Diskettengröße 5.25”, Mo- 
;. dernste Controller Elektronik, sowie Lauf- 


nutzer die Möglichkeiten zum Einsatz 
hochwertiger Anwender- und System- 
software, sowie eigener Programme. 

Die Fioppy-Disk-Station F1-S kann mit 
dem Aufrüst-Kit A1-S zur Floppy-Disk- 
Station F1-D ausgebaut werden. 


Hardwarekanzepi: 


| werke (BASF 6138) mit sehr guter Ein- | - 5.25” Laufwerke 6138 der Firma 


satzbewährtheit, garantieren ein dauer- 
haftes und fehlerfreies Arbeiten der Sta- 
Professionelle Betriebssysteme 


| ten Betriebssystem VDOS) bieten dem Be- 


1/86 





BASF; 708 KB formatierte Speicherka- 
pazität pro Laufwerk (d.h. 1.4 MB bei 
der Station F1-D); 80 Spuren pro Seite; 
Zweiseitig (DS = Doppelkopf Lauf- 
werk}; Doppelte Schreibdichte (DD); 


GComputs enib 


4 msec Spurwechselzeit; IBM 34 For- 
mat; es werden Disketten der Bezeich- 
nung DS/DD 96 tpi benötigt. 

Der Controlter wird nicht direkt an den 
Expansions Bus angesteckt, sondern 
mit einem Flachbandkabel. mit ent- 
Sprechendem Stecker mit diesem ver- 
bunden. Dadurch werden die Kontakte 
nicht mechanisch belastet, wodurch 
sich eine optimale Kontaktsicherheit 
ergibt. v 

Mit dem Adapterkabel FDA-1, kann ein 
3" Schneider Laufwerk angeschlossen 
werden. Hierzu sind keinerlei Soft- 
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report. 


oder Hardwareänderungen nötig. Das 
3” Laufwerk wird voll integriert. 

- Ausführliches deutsches Handbuch 
‚mit GP/M Befehlseinführung. 

- Solide ergonomische, farblich arı den 
CPC 464 angepaßte Gehäuse für Lauf- 
werke und Controller. 

- Abmessungen: 

305 x 150 x 90 {LxBxH in mm) 

- Gewichte: F$-5 3,1 kg, F1-D 4,6 kg. 


Sofiwarekonzept: 
- 2 Beiriebssysteme: 


* CP/M 2.2 voll angepaßt mit Utilities 
* erweitertes BASIC Diskettenbetriebs- 
system VDOS (Vortex Disk Operating 
System). Zum Arbeiten unter BASIC 
wird keine Systerndiskette benötigt, da 
z.B. selbst zum Formatieren einer Dis- 
kette ein eigener, im Controller festein- 
gebauter Befehl vorhanden ist. 

- Alle Meldungen in Deutsch. 

- Alle Utilities sind menügesteuert, 


Preise: 
Floppy Disk Station F1-S = 1.198,- DM 
Floppy Disk Station F1-D = 1.698,- DM 


Lieferumfang: 

1.1 Diskettenstation (ein oder zwei Lauf- 
werke} mit Controller und allen Kabeln. 
2.1 CP/M 2.2 Systemdiskette mit dem 
CP/M 2.2 Betriebssystem und Utilities 3.1 
Deutsches Handbuch mit ausführlicher 
CP/M 2.2 Befehlseinführung. 


Diese Fioppy Disk Stationen sind bei der 
Vortex Vertriebs GmbH 
Kiingenherg 13 
7106 Neustadt 5 
erhältlich. 








Forth gehört zu den höheren Program- 
miersprachen, die auf vielen Personal- 
Computern Anwendung finden und auch 
im Homecomputer-Bereich immer mehr 
berücksichtigt wird. Die Vorteile dieser 
Sprache liegen in ihrer Flexibilität und in 
der Schnelligkeit, mit der in Forth ge- 
schriebene Programme laufen können. 

Dieses Buch gibt dem Anfänger eine erste 
Einführung in die Strukturen und die Be- 
sonderheiten dieser modernen Program- 
miersprache. Jeder der dieses Buch liest 
braucht keine Vorkenntnisse vorzuwei- 
. sen, da es die Grundlagen von Forth und 





b2 


der Datentechnik weitergibt. So werden 
unter anderem 


Basiskonzepte, _ 

die Handhabung von Zahlen, 
die Handhabung von Variablen, 
Verzweigung 

und Übungsbeispiele 


aufgezeigt. Erschienen ist dieses Buch im 
Goldmann-Verlag, 


München, 
ISBN 3-442-13128-6 für 12,80 DM - 


kcı % 


Als weitere Neuerscheinung im Bereich der hö- 
heren Programmiersprachen siellt der Gold- 
mann-Verlag 





vor Diese Programmiersprache ist fast 
ausschließlich auf größeren Rechner-An- 
lagen installiert. Gelegentlich findet sie 
aber auch auf Personalcomputern An- 
wendung. Der Profi weiß es ohnehin, Tur- 
bo-Pascal ist zur Zeit der absolute Renner 
in der Homecomputerszene. Das kommt 
natürlich nicht von ungefähr, denn PAS- 
CAL zeichnet sich durch besondere Über- 
sichtlichkeit in den verfaßten Program- 
men aus. Das Buch gibt einen Überblick 
über 
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die Struktur von Pascal- 
Programmen, 
Pascal-Unterprogamme, 


 IF- und FOR-Anweisungen, 


Schleifen 
und praktische Beispiele 





Der Anfänger erhält hier auf leicht ver- 
ständliche, gegliederte Art den Einstieg in 
die Programmiersprache Pascal und 
macht ihn in effizienter Weise mit den Be- 
sonderheiten dieser modernen Program- 
miersprache vertraut. 


- ISBN 3-442-13127-8, 
Preis: 12,90 DM 
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Die Karten SP256, SP320 und SP512 bie- 
ten zudem die Möglichkeit einer RAM- 
Floppy, also eines superschnellen Mas- 
senspeichers. Alle Karten basieren auf 


von: Dietmar Eirich/ Peter Herzberg a “ derselben Platine. Jede Karte kann durch 


die entsprechenden Ausbausätze (Kits) 


Dieses Buch gibt jedem Computer-Fan ei- | In diesem Jahrbuch ist das zusammenge- | DIS zur SP512 ausgebaut werden: kein Lö-. 
nen Überblick über die ganze Welt der | faßt, was jeder Computer- Anwender, -Ein- | !eN, nur Einstecken von integrierten 
Microcomputer in einem Band. Jeder der | steiger, Freak und Profi wissen muß, um | Schaltungen. Die Speicherkarte wird di- 
einen Microcomputer erwerben möchte, | sich im verwirrenden Angebot der Syste- | "ekt im GPC untergebracht. 
- sollte unbedingt dieses Buch lesen. Erfin- | me und Programme zurechtzufinden. Hardwarekonzept: 
det hier Hier finden Sie Kriterien und Auskünfte, | - Erweiterung des Arbeitsspeichers von 
den Stand der Technik in der Mikro-Elektronik 48 KB RAM auf 64 KB RAM 
die Unterschiede der Computer-Systeme Heyne Computerbücher München, - Bereitstellung eines 32 KB Druckerpuf- | 
einen Einkaufs-Check fers 
' Entscheidungshilfen mit Preisvergleichstabelie ISBN 3-453-47056-7, - RAM - Floppy bei den Karten SP256, 
Adressen von Herstellern und Computerclubs SP320 und SP512 

Uy.M. k Preis: 16,80 DM - Durch Ausbausätze jede Karte bis zur 
EIER = ==  SP512 ausbaubar, z.B. SP64 zur SP512 
a rie EEE ZEN IR - Einbau der Platine direkt in den CPC 
- völlig unkamplizierter Einbau: kein Lö- 
ten 





























































Ausbauschema RAM - Erweiterungen Die RAM Karten der Softwarekonzept; 
ee rer SP-Serie (64KB, 256 | - Durch die mitgelieferte Software (für 
a AS FR KB, 320 KB und 51? BASIC im ROM, für CP/M auf Diskette) 
a r KB) vergrößern den | wird der Speicher sowohl unter BASIC 
PER ENTER ER RTEN, CPC Arbeitsspeicher als auch unter CP/M voll in die CPC 
3 Einheit a a I Ainnalı 5 I auf volle 64 KB und Soft- und Hardwareumgebung inte- 
E spe: ee man ine 1 zr230: ee Ran ame 1 stellen einen 32 griert und ist damit vielfältig einsetzbar. 
wo re ER EN Mer Paare KB  Druckerpuffer 
ar EIRy ee EN 2 3 (‚Spooler‘) zur Verfü- | Lieferamfang: 
a a gung. Vom Speicher | spg4, Sp256, SP320, SP512 
er ER; 1 hergibtesdamitkei- | 4_ 4 Spejcherplatine” 
2 En 1 neriei Einschränkun- | 9 1 Systemdiskette 
ı ı ; gen mehr bezüglich | 3 4 ausführliche Einbauanleitung 
a a I en in an | Kit SK128/384, SK128/576, SK320/576, 
i arıes EnE Ban ina-1 ! : Kit B en Programme 384/576 
Be Be wie. dBase oder | 3° 4 sregmaiskette 
NL i : WordStar arbeiten | 3. 4 ausführliche Einbauanleitung 
I 2 ı I AUN uneinge- 
en Ei h : schränkt, Preise: 
I I X 
RER RE IE A SPG4 = 225,-- DM 
E ie, 3P512: EPC RaH inagesamt 575 EB ı SP2U6 F 533,-- DM 
ee EL sr SP320 = 573,-- DM 
“anlienar aus une Skrax/yyr bedeutetzsun en Diese RAM-Karten sind bei der Vortex Vertriebs 






‘ erweitert wird: 2,8. SK128/388 von 128 KB auf 38% EB 







GmbH, Klingenberg B, 7106 Neuenstadt 5 
erhältlich. 


® Iades Kit besteht aus winen Satz Speicher Ilm und sinem 
Tirmware - ROM, 
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ELEPHANT. 
KOMPROMISSLOS 


"NEVER | FORGETS” 


Speichern und Drucken, Fehlerlos. Mit 100% Sicherheit: 
das ist Elephant Memory Systems'". 
Unter diesem Markennamen erhalten Sie hochwertiges Zubehör 
für perfekt arbeitende Kommunikations-Systeme der Text- 
und Datenverarbeitung - wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmittel. . 
Kompromiß ist Risiko. Zweite Wahl ist Unsicherheit — deshalb: 
verlangen Sie Elephant Memory Systems'”. 


== ELEPHANT NEVER FORGETS. 


MARCOM Computerzubehör GmbH 
Podbielskistraße 321, 3000 Hannover 51, Tei. 0611) 847420 
Frankreich; Soroclass, 8, Re Montgoltier - 93115, Rosny-Sous-Bois, Tel: 16 (1) 855-73-70 
Großbritannien: Dennison Mfg. Co. Ltd., Colonial Way, Wattord WD2 ANY, Tel.: 0923 41244, Telex: 923321 
italien: King mec $.p.a. : Via Regio Parco 108 - 10036 Setttmg Terinese 
Weiteres Ausland: Dennison Internationa! Company, 4006 Erkrath *, Matthias-Glaudius-Straße 9, Telex: 858 6600 
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